主题：帮忙看看代码那错了？

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 If
End Select