主题：[求助]求助一下

想做一个客户黑名单，在这个黑名单表里面做好企业不欢迎的客户名称。

DataColChangeINg  在哪里捏 找不到捏

...datacolchanging  不是 DataColChangeINg 。、版主多打了个 e ...

表都没加锁，打上版主给的代码以后报错：尝试读取或写入受保护的内存，这通常指示其他内存已损坏。

根据 bin版主的 代码 ，做上以后 还是能正常录入

 

datacolchangling事件：

 

If e.DataCol.name="终端客户" Then
    Dim dr As DataRow = DataTables("客户黑名单").find("终端客户='" & e.newValue & "'")
    If dr IsNot Nothing Then
           e.cancel=False
    End If
End If

If e.DataCol.name="经销商" Then
    Dim dr As DataRow = DataTables("客户黑名单").find("经销商='" & e.newValue & "'")
    If dr IsNot Nothing Then
           e.cancel=False
    End If
End If

 

 

客户黑名单列名：终端客户   经销商

被录入表列名有：终端客户  经销商 

 

录入的时候选择 终端客户里面的 名称，还是可以录入

技术支持总表 列名有：经销商  终端客户  

datacolchangling 事件：

If e.DataCol.name="终端客户" Then
    Dim dr As DataRow = DataTables("客户黑名单").find("终端客户='" & e.newValue & "'")
    If dr IsNot Nothing Then
           e.cancel=true

    End If
End If

If e.DataCol.name="经销商" Then
    Dim dr As DataRow = DataTables("客户黑名单").find("经销商='" & e.newValue & "'")
    If dr IsNot Nothing Then
           e.cancel=true

    End If
End If

 

 

检测维修单  列名有：终端客户

datacolchangling 事件：

If e.DataCol.name="终端客户" Then
    Dim dr As DataRow = DataTables("客户黑名单").find("终端客户='" & e.newValue & "'")
    If dr IsNot Nothing Then
           e.cancel=true

    End If
End If

 

 

 

黑名单列名有： 经销商 终端客户

 

 

 

录入窗口的时候，选择黑名单中有的终端客户或者经销商里面的名称，仍然可以录入成功。

 

e.cancel=flase  也不好使

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:售后服务管理系统v1.3.table

表单录入窗口。经销商选中 黑名单中有的 名称，新增是可以新增上的。

原来是 空白显示的方式，那有没有  提示框的方式，直接提示黑名单用户，无法新增。