主题：自动删除行

设置表A的DataRowDeleting事件为：

Dim dr As DataRow = DataTables("表B").Find("ID = " & e.DataRow("_Identify"))
If dr IsNot Nothing Then
    dr.Delete
End If
dr = DataTables("表C").Find("ID = " & e.DataRow("_Identify"))
If dr IsNot Nothing Then
    dr.Delete
End If

这样在表A删除行，会自动删除表B和表C对应的行。