以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请老师看下 这段代码 有问题吗 ？ 怎么不能操作啊  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99705)
--  作者：youngk
--  发布时间：2017/4/25 13:11:00
--  请老师看下 这段代码 有问题吗 ？ 怎么不能操作啊
Select e.DataCol.name
    Case "客户全称","客户名称"
        Dim dr0 As DataRow
        dr0 = DataTables("客户信息表").find("客户全称 = \'" & e.DataRow("客户全称") &"\'  Or  客户名称 =\'" & e.DataRow("客户名称") &"\'")
        If dr0 IsNot Nothing Then
            e.cancel = True
            messagebox.show("已有该客户,请直接选择!","提示")
        End If
End Select
--  作者：有点色
--  发布时间：2017/4/25 14:19:00
--  

 你的代码写在什么事件，要做什么功能？或者试试

 

Select e.DataCol.name
    Case "客户全称"
        Dim dr0 As DataRow
        dr0 = DataTables("客户信息表").find("客户全称 = \'" & e.newvalue & "\'")
        If dr0 IsNot Nothing Then
            e.cancel = True
            messagebox.show("已有该客户,请直接选择!","提示")
        End If
    Case "客户名称"
        Dim dr0 As DataRow
        dr0 = DataTables("客户信息表").find("客户名称 = \'" & e.DataRow("客户名称") & "\'")
        If dr0 IsNot Nothing Then
            messagebox.show("已有该客户,请直接选择!","提示")
        End If
End Select