Select Case e.DataCol.name Case "编号","付款方式" Dim count As Integer = e.DataTable.compute("count(_Identify)", "付款方式 = '" & e.DataRow("付款方式") & "' and 编号 = '" & e.DataRow("编号") & "'") If count > 1 Then msgbox("重复了")
e.DataRow.Delete End IfEnd Select