[求助]重复的自动添加有规律的尾号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面的代码是要求表格内“简称”不能重复，发现“简称”重复就退出，我想把它改为：如发现“简称”重复的则自动添加有规律的尾号：发现第一个“简称”重复的自动添加尾号-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

[此贴子已经被作者于2015/12/29 20:36:21编辑过]

主题：[求助]重复的自动添加有规律的尾号