主题：[求助]非关联表之间的数据同步

帮助里就有现成的呀，改下表名、列名而已

Select Case e.DataCol.name

    Case "接收时间", "接收人姓名", "接收实验室"

Dim drs As List(Of DataRow)
drs = DataTables("cjb").Select("箱号 = '" & e.DataRow("转运箱码") & "'")
For Each dr As Datarow In drs
   dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
Next

End Select