Select Case e.DataCol.namecase "审核"
Dim dr As DataRow = DataTables("表B").Find.Find("单号 = '" & e.DataRow("单号") & "' and 料号 = '" & e.DataRow("料号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
dr = DataTables("表C").Find.Find("单号 = '" & e.DataRow("单号") & "' and 料号 = '" & e.DataRow("料号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
加好友 
发短信
Post By：2023/8/31 8:27:00 [显示全部帖子]
