主题：[求助]求助一下

代码

 

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=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

 

 

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

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

 

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

 回复13楼，请参考11楼的代码。

 

 你写的代码没有错，你对应的看看列名是否对应，两个表的两个列的名字，都要是 【终端客户】【经销商】

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

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  也不好使

 

 汗。 回复15楼，例子发上来，我帮你改

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

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

  回复17楼，测试没有问题，根本就不能输入黑名单里面有的值。你是怎么测试的？

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

 

可以新增，但是经销商的名字并没有写进去啊。