以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  禁止代码合成的编号重复，好像无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147591)

--  作者：fytea --  发布时间：2020/3/20 3:32:00 --  禁止代码合成的编号重复，好像无效 用如下码，禁止“照片号”（本列是用代码把几列数据合成的）列重复，但不能回到老数据上，重复号码依旧 Select Case e.DataCol.name     Case "照片号","底片号"         Dim xh As String         Dim gg As String         If e.DataCol.Name= "照片号" Then             xh = e.NewValue             gg = e.DataRow("底片号")         Else             gg = e.NewValue             xh = e.DataRow("照片号")         End If         If xh > "" AndAlso gg  > "" Then             Dim dr As DataRow = e.DataRow             If e.DataTable.Find("照片号 = \'" & xh & "\' And 底片号 = \'" & gg & "\'") IsNot Nothing Then                                               MessageBox.Show("已经存在相同型号和规格的行!","提示")                 e.DataRow(e.DataCol.Name) = e.OldValue \'取消输                              End If         End If End Select

--  作者：有点蓝 --  发布时间：2020/3/20 9:54:00 --   代码在什么事件的？

--  作者：fytea --  发布时间：2020/3/20 17:30:00 --   表事件DataColChanging [此贴子已经被作者于2020/3/20 17:31:44编辑过]

--  作者：有点蓝 --  发布时间：2020/3/20 19:55:00 --   麻烦仔细看看帮助是怎么用的。不同的事件用法不一样，不要把不同事件的用法混到一起使用：http://www.foxtable.com/webhelp/topics/2481.htm