在表A的 DataRowAdded 事件中:
Dim dr As DataRowdr = DataTables("表B").Find("关联列 = '" & e.datarow("关联列") & "'")If dr Is Nothing Tables("表B").Addrow()