主题：[求助]多线程加队列求助

你都没有调用，压入队列以后，要弹出和执行操作的，如

 

If _MyQueue IsNot Nothing AndAlso  _MyQueue.Count > 0 Then
    Dim dr As System.Data.DataRow = _MyQueue.Dequeue
    e.Form.Controls("Label1").Text = dr("数量")
    dr = Nothing
End If

 

如果要循环执行，就这样调用

 

Vars("逻辑1") += 2
_TPool.QueueUserWorkItem(New System.Threading.WaitCallback (AddressOf ddd))

 压入队列代码有错，不能清空和重新new，试试改成下面

 

Dim xsdh As String = Args(0)
Dim dr As DataRow = DataTables("订单计划一览表后台").SQLFind("销售单号 = '" & xsdh & "'")
Dim htdr As System.Data.DataRow
If dr IsNot Nothing Then
    'MessageBox.Show("有取后台")
    htdr = dr.baseRow
    _MyQueue.Enqueue(htdr)
    Vars("逻辑1") += 2
End If
htdr = Nothing
Return Nothing

删除这两句看看

 

Dim wz As Integer = Tables("订单计划一览表").FindRow(ndr)
Tables("订单计划一览表").AutoSizeRow(wz)

删除代码

 

_TPool.QueueUserWorkItem(New System.Threading.WaitCallback (AddressOf ddd))

 

开启的代码，在afterOpenProject处理即可

 

_TPool.QueueUserWorkItem(New System.Threading.WaitCallback (AddressOf ddd))

报什么错？上传具体实例测试。

1、如果提示索引问题是这句代码

 

Dim dr As DataRow = DataTables("订单计划一览表").Select("销售单号 = '"& htdr("销售单号") &"'")(0)

 

改成

 

Dim dr As DataRow = DataTables("订单计划一览表").find("销售单号 = '"& htdr("销售单号") &"'")

 

2、队列那里，最后用到了委托，执行委托的函数的时候，如果有耗时代码，该耗时还是会耗时，该假死还是会假死的。

 

3、你的代码我分析测试没问题，请就你的例子，做个简易版本的发上来测试。

 不应该报错，就【队列】的修改，修改成出错发上来测试。