表B,datacolchanged事件
If e.DataCol.name = "第三列" Then Dim pdr = DataTables("表A").find("第一列 = '" & e.DataRow("第一列") & "'") If pdr IsNot Nothing Then pdr("第三列") = e.DataTable.GetComboListString("第三列", "第一列 = '" & e.DataRow("第一列") & "'").replace("|", ",") End IfEnd If