Dim dr As DataRow = DataTables("表B").Find("ID = '" & e.DataRow("ID") & "' And 姓名 = '" & e.DataRow("姓名") & "'") If e.DataCol.Name = "是否" Then If e.DataRow("是否") = True Then If dr Is Nothing Then Dim adddr = DataTables("表B").AddNew() adddr("ID") = e.DataRow("ID") adddr("姓名") = e.DataRow("姓名") End If Else If dr IsNot Nothing Then dr.Delete() End If End If End If