If e.DataCol.Name = "箱号" Then '发生变化的是产品编号吗?
'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("jsb").Find("转运箱码 = '" & e.DataRow("箱号") & "'")
If dr IsNot Nothing Then'如果找到, 则设置各列内容
e.DataRow("接收时间") = dr("接收时间")
e.DataRow("接收人姓名") = dr("接收人姓名")
e.DataRow("接收实验室") = dr("接收实验室")
End If
End If
重置”箱号“可以实现表间数据同步。
jsb的DataColChanged
Select Case e.DataCol.name
Case "接收时间", "接收人姓名", "接收实验室"
Dim dr As DataRow = DataTables("cjb").Find("箱号 = '" & e.DataRow("转运箱码") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
jsb与cjb存在1对多的关系，上述代码只能同步第一行数据，其他相同箱号的数据没有同步，求老师指点完善代码。谢谢！
加好友 
发短信
Post By：2022/8/1 16:15:00 [显示全部帖子]
