Threading.Task.Run 提交两次但仅在某些调用上

Question

朋友们：这个问题让我很困惑。

除非我记录，否则此代码会两次提交相同的作业！

' optionally log to a textfile before call
If bLog Then LogProcess("Before run")

' this only processes once regardless of 
ExecuteSQL($"UPDATE [Process] SET [timesRepeated] += 1, [dateStarted] = '{Now}' WHERE [id] = {iID}")

Dim oBackground As New Background

' this thing spawns two of the some - but not all - jobs!
Dim t1 As Task = Task.Run(Sub() CallByName(oBackground, sProcessKey, CallType.Method, iID))

' optionally log to a textfile following call
If bLog Then LogProcess("After run")

这发生在由内部计时器调用的后台处理例程中。

我已经验证了计时器只产生一次，并且每次“heatbeat”只触发一次。

如果使用 bLog = True 调用此例程，我会执行单次执行。如果 bLog = False，某些进程 (sProcessKey) 会同时被调用两次。我也登录了这些例程。

有什么想法吗？

提前致谢。

Answer 1

我希望这对其他人有所帮助。这不是解决方案，只是一种解决方法：

由于稍微延迟处理（在这种情况下通过日志记录）有效，因此我添加了一个贪睡因素：

If bLog Then 
   LogProcess("After run")
Else
   Thread.Sleep(1000)
End If

这解决了问题，但显然会延迟处理 1 秒。