代码
If e.DataCol.name="客户" Then Dim dr As DataRow = DataTables("客户黑名单").find("客户名称='" & e.newValue & "'") If dr IsNot Nothing Then e.cancel=True End IfEnd If