老师,我用的下面的代码实现 , 还有更好的方法吗? 您说的一次性导入 , 我还是没有理解 谢谢!Dim lis_wtbh As List(of String) = dtb1.GetValues("委托编号")
Dim drs As List(of DataRow) = DataTables("流水").SQLSelect("[委托编号] In ('" & String.Join("','",lis_wtbh) & "')")
Dim lis_dw As new List(of String)
Dim lis_bfl As new List(of Single)
Dim lis_bh As new List(of String)
For Each d As DataRow In drs
lis_bh.Add(d("委托编号"))
lis_dw.add(d("委托单位"))
Next
For Each dr As DataRow In dtb1.DataRows
Dim bh As String = dr("委托编号")
For i As Integer = 0 To lis_bh.Count - 1
If bh = lis_bh(i) Then
dr("委托单位") = lis_dw(i)
Exit For
End If
Next
Next
[此贴子已经被作者于2021/3/31 15:04:01编辑过]
加好友 
发短信
Post By：2021/3/31 11:02:00 [只看该作者]
