以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  find的多条件判断代码为何写?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=9244)

--  作者:红叶
--  发布时间:2011/3/18 12:42:00
--  find的多条件判断代码为何写?

销售订单表中有"客户姓名,客户电话,客户地址"三列,在DataColChanging事件中禁止"客户姓名,客户电话,客户地址"三列值同时相同,如在以下的代码中如何加入对"客户姓名,客户电话,客户地址"的同时判断?

Select Case e.DataCol.Name
    Case "客户姓名"

            Dim cmd As New SQLCommand
            Dim dt As DataTable
            Dim db As DataRow
            cmd.C 
            cmd.CommandText = "SELECT  客户姓名 From {销售订单}"
            dt = cmd.ExecuteReader()
            db = dt.Find("客户姓名 = \'" & trim(e.NewValue) & "\'")
            If db IsNot Nothing \'一定要判断是否存在对应的行
                e.Cancel =True
                Messagebox.Show("客户姓名重复,请重新录入!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If


--  作者:狐狸爸爸
--  发布时间:2011/3/18 13:38:00
--  
db = dt.Find("客户姓名 = \'" & trim(e.NewValue) & "\' And 客户电话 = \'" & e.DataRow("客户电话") & "\' And 客户地址 = \'" & e.DataRow("客户地址") & “‘”