以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]重复的自动添加有规律的尾号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79365)

--  作者：xianzheng --  发布时间：2015/12/29 20:35:00 --  [求助]重复的自动添加有规律的尾号      下面的代码是要求表格内“简称”不能重复，发现“简称”重复就退出，我想把它改为：如发现“简称”重复的则自动添加有规律的尾号：发现第一个“简称”重复的自动添加尾号-1，第二个“简称”重复的自动添加尾号-2，第三个“简称”重复自动添加尾号-3，...以此类推给重复的简码自动添尾号，代码如何写？  If e.DataCol.Name = "简称" Then      Dim dr As DataRow = DataTables("基础资料").Find("简称 = \'" & e.NewValue & "\'")      If dr IsNot Nothing Then          MessageBox.Show("此\'简称\'已存,不能重复录单!","提醒")          e.DataRow("简称") =""          e.Cancel = True      End If  End If [此贴子已经被作者于2015/12/29 20:36:21编辑过]

--  作者：大红袍 --  发布时间：2015/12/29 20:55:00 --   If e.DataCol.Name = "简称" Then     Dim dr As DataRow = e.DataTable.Find("简称 = \'" & e.NewValue & "\'")     If dr IsNot Nothing Then         MessageBox.Show("此\'简称\'已存,不能重复录单!","提醒")         e.newvalue += "-" & e.DataTable.compute("count(简称)", "简称 like \'" & e.NewValue & "-%\' and _Identify <> " & e.DataRow("_Identify")) + 1     End If End If

--  作者：xianzheng --  发布时间：2015/12/29 21:11:00 --   谢谢！