以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于不重复数据的一个问题！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75818)

--  作者：大红袍 --  发布时间：2015/10/15 14:11:00 --     [此贴子已经被作者于2015/10/15 14:10:58编辑过]

--  作者：大红袍 --  发布时间：2015/10/15 14:12: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     Else         dr = e.DataTable.SqlFind("订单号 = \'" & e.NewValue & "\'")         If dr IsNot Nothing Then             MessageBox.Show("此订单号已经存在!")             e.Cancel = True         End If     End If End If

--  作者：大红袍 --  发布时间：2015/10/15 14:59:00 --   录入单号后，就必须马上保存此行