表A ,datacolchanged事件
Select Case e.DataCol.Name
Case "第一列","第二列","第三列","第四列"
Dim dr As DataRow = DataTables("表B").SQLFind("第一列='" & e.DataRow("第一列") & "' and 第二列='" & e.DataRow("第二列") & "' and 其它列条件自己补充完整")
If dr Is Nothing Then
dr = DataTables("表B").AddNew
dr("第一列") = e.DataRow("第一列")
dr("第二列") = ……其它列自己补充完整
dr.Save
End If
End Select