在“要得到的表”中的DataColChanged设置以下代码试试:
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "第一列"
Dim dr1 As DataRow = DataTables("表A").Find("第一列='" & dr("第一列") & "'","第二列 Desc")
Dim dr2 As DataRow = DataTables("表B").Find("第一列='" & dr("第一列") & "'")
If dr1 IsNot Nothing
dr("最新进度") = dr1("第三列")
End If
If dr2 IsNot Nothing
dr("第二列") = dr2("第二列")
End If
End If