datatable表数据大于20万,在另外的表中查找需要的值,对表中超过2万的行进行赋值,但是发现效率比较慢,超过2分钟才处理完,请问下有没有优化的办法
Dim dic As new Dictionary(of Row, String)
Dim da As Table = e.Form.Controls("Table1").Table
Dim w As DataRow
For Each dr As Row In da.Rows
w = dt.Find("单号 = '" & dr("单号") & "'")
If w IsNot Nothing Then
dic.Add(dr,w("未领数量"))
End If
Next
'----------------上述代码发现耗时10秒左右,下面耗时很长
For Each dr As Row In dic.Keys
dr("未领数量") = dic(dr)
dr("未出数量") = dr("未出数量") - dr("未领数量")
Next
[此贴子已经被作者于2022/9/22 14:24:38编辑过]