表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 13:25:00 [只看该作者]
Post By：2021/6/28 15:45:00 [只看该作者]
此主题相关图片如下：qq图片20210627132015.png