建一个窗口为停靠类型 属于表A 建一个Button 控件
Dim dr1 As DataRow
If DataTables("表a") IsNot Nothing And DataTables("表b") IsNot Nothing Then
For Each dr As DataRow In DataTables("表a").DataRows
If dr("流水号") IsNot Nothing AndAlso dr("员工号") IsNot Nothing Then
dr1=DataTables("表b").Find("流水号='"& dr("流水号") &"' And 员工号='"& dr("员工号") &"'")
If dr1 IsNot Nothing Then
dr("第3列")=dr1("名字")
End If
End If
Next
End If