以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]禁止列重复增加条件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154138)

--  作者:miaoqingqing
--  发布时间:2020/9/4 16:37:00
--  [求助]禁止列重复增加条件
If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此订单号已经存在!")
        e.Cancel = True
    End If
End If

求助,增加一列条件,实现:
第一列  订单号
中国     001
中国     001
中国     001  第一列一样,允许订单号重复

美国     001   不允许录入001

--  作者:有点蓝
--  发布时间:2020/9/4 16:40:00
--  
dr = e.DataTable.Find("订单号 = \'" & e.NewValue & "\' and 第一列 <> \'" & e.datarow("第一列") & "\'")
--  作者:miaoqingqing
--  发布时间:2020/9/4 16:55:00
--  回复:(有点蓝)dr = e.DataTable.Find("订单号 = '"...
再求助
第一列     第二列   订单号
中国          广东       001
中国          广东      001  第一列和第二列已存在,这行订单号001不能录入,求助

--  作者:有点蓝
--  发布时间:2020/9/4 17:03:00
--  
dr = e.DataTable.Find("订单号 = \'" & e.NewValue & "\' and (第一列 <> \'" & e.datarow("第一列") & "\' or 第一列 = \'" & e.datarow("第一列") & "\' and 列 = \'" & e.datarow("") & "\')")