If e.DataCol.Name = "dnd_so" OrElse e.DataCol.Name = "dnd_wo_part" Then
Dim Cols1() As String = {"so_cust", "so_cust_part", "so_xl", "so_dy", "so_rl", "so_zj", "so_gd", "so_rc"}
Dim Cols2() As String = {"dnd_cust", "dnd_cust_part", "dnd_xl", "dnd_dy", "dnd_rl", "dnd_zj", "dnd_gd", "dnd_rc"}
For Each dr1 As DataRow In DataTables("so_det").Select("so_cust_dh", "so_part")
Dim dr2 As DataRow = DataTables("dnd_det").AddNew()
For i As Integer = 0 To Cols1.Length - 1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
Dim nms() As String = {"dnd_cust", "dnd_cust_part", "dnd_xl", "dnd_dy", "dnd_rl", "dnd_zj", "dnd_gd", "dnd_rc"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("so_det").Find("(so_cust_dh = '" & e.DataRow("dnd_so") & "') and(so_part = '" & e.DataRow("dnd_wo_part") & "')")
msgbox(("(so_cust_dh = '" & e.DataRow("dnd_so") & "') and(so_part = '" & e.DataRow("dnd_wo_part") & "')"))
If dr IsNot Nothing Then
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
这里For Each dr1 As DataRow In DataTables("so_det").Select("so_cust_dh", "so_part")用什么条件查找呢，现在提示筛选表达式“so_cust_dh”的计算结果不是 Boolean 值项。
加好友 
发短信
Post By：2022/12/8 11:16:00 [只看该作者]
此主题相关图片如下：3.png
