以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于双列或多列重复  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69523)

--  作者：dj68301367 --  发布时间：2015/6/6 15:22: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 以上这段是单列是出现重复值会退出输入 如果是双例呢？

--  作者：Bin --  发布时间：2015/6/6 15:24:00 --   If e.DataCol.Name = "销售单号" or e.datacol.name = "第二列" Then     Dim dr As DataRow     dr = e.DataTable.Find("销售单号 = \'" & e.datarow("销售单号") & "\' and 第二列=\'" & e.datarow("第二列") & "\'")     If dr IsNot Nothing Then         MessageBox.Show("此销售单号已经存在!")         e.Cancel = True     End If End If