表A ，datacolchanged
If e.DataCol.name = "设备编号" Then
Dim pr As DataRow = datatables("设备领用单").find("设备编号='" & e.newvalue & "'","_sortkey desc")
If pr IsNot Nothing Then
e.datarow("现使用人") = pr("领用人员")
End If
End If
表B ，datacolchanged
If e.DataCol.name = "领用人员" Then
Dim dr As DataRow = datatables("表A").find("设备编号='" & e.datarow("设备编号") & "'")
if dr isnot nothing then
Dim pr As DataRow = e.datatable.find("设备编号='" & e.datarow("设备编号") & "'","_sortkey desc")
If pr IsNot Nothing Then
dr("现使用人") = pr("领用人员")
End If
End If
End If
加好友 
发短信
Post By：2021/6/27 21:00:00 [显示全部帖子]
