表BDataColChanged代码
If e.DataCol.Name = "确认" AndAlso e.DataRow("确认") = True Then If e.DataRow.IsNull("编号") = False Then DataTables("表A").DeleteFor("编号 = '" & e.DataRow("编号") & "'") End IfEnd If