为什么在DataRowAdd或者DataColChanged获取的的Identify总是比实际的多了1？我想用这个identify作为不重复自动编号列用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：qq截图20220720105554.png

为什么在DataRowAdd或者DataColChanged获取的的Identify总是比实际的多了1？我想用这个identify作为不重复自动编号列用

此主题相关图片如下：2.png

此主题相关图片如下：3.png

难道是access的机制问题？

此主题相关图片如下：4.png

我还发现我6年前问过类似的问题http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89159&skin=0

难道在局域网多人下，不上服务器端这个“中间商”，就永远没办法折腾出这个靠谱的自增数字？

[此贴子已经被作者于2022/7/20 11:12:26编辑过]

好的，参考帮助文档《网络环境下的复杂编号》，思路相同，分享我在局域网下自动编号更精简的代码：

1.建立记录自动编号的表，名称：自动编号表

此主题相关图片如下：2.png

2.内部函数名：获取自动编号

'通过Functions.Execute("获取自动编号","表名")使用

'传入表名，返回这个表当前可用的新自增编号

'思路参考狐表官方文档《网络环境下的复杂编号》，实测异步并发生成也不会有重复编号

Dim tableName As String = Args(0)

Dim cmd As New SQLCommand

cmd.Co nnecti

cmd.commandText = "Sel ect Count(*) From 自动编号表 Where 表名 = '" & tableName & "'"

If cmd.ExecuteScalar = 0 Then '如果编号表不存在该表名的记录,那么增加一行

cmd.commandtext = "Ins ert Into 自动编号表 (表名, 当前编号) Values('" & tableName & "',1)"

cmd.ExecuteNonQuery

End If

Dim No As Integer

cmd.commandText = "Sel ect 当前编号 From 自动编号表 Where 表名 = '" & tableName & "'"

No = cmd.ExecuteScalar() '从后台获得当前编号

cmd.commandText = "Upd ate 自动编号表 Set 当前编号 = " & (No + 1) & " Where 当前编号 = " & No & " And 表名 = '" & tableName & "'"

If cmd.ExecuteNonQuery() > 0 Then '更新编号

Exit Do '更新成功，说明编号可用，则退出循环

End If

Loop

Return No

3.在业务表的DataRowAdding事件

e.DataRow("编号") = Functions.Execute("获取自动编号", e.DataTable.Name)

4.即可得到以下效果

此主题相关图片如下：自增编号效果.png

[此贴子已经被作者于2022/7/21 11:18:25编辑过]

此主题相关图片如下：重复.png

此主题相关图片如下：测试结果.png

此主题相关图片如下：重复2.png

最多会遇到一种异常，但是也不会重复，不重复就行了：

行被锁定，无法更新

所以更新一下自定义内部函数的代码，增加个Try规避锁定导致的循环中止

'通过Functions.Execute("获取自动编号","表名")使用

'传入表名，返回这个表当前可用的新自增编号

'思路参考狐表官方文档《网络环境下的复杂编号》，实测异步并发生成也不会有重复编号

Dim tableName As String = Args(0)

Dim cmd As New SQLCommand

cmd.Con nec tionNa me = "DB" '数据库源名称

cmd.commandText = "Sele ct Count(*) From 自动编号表 Where 表名 = '" & tableName & "'"

If cmd.ExecuteScalar = 0 Then '如果编号表不存在该表名的记录,那么增加一行

cmd.commandtext = "Inse rt Into 自动编号表 (表名, 当前编号) Values('" & tableName & "',1)"

cmd.ExecuteNonQuery

End If

Dim No As Integer

'1从后台获取当前最新编号

cmd.commandText = "Sele ct 当前编号 From 自动编号表 Where 表名 = '" & tableName & "'"

No = cmd.ExecuteScalar()

'2尝试更新编号，确保编号可用

cmd.commandText = "Upd ate 自动编号表 Set 当前编号 = " & (No + 1) & " Where 当前编号 = " & No & " And 表名 = '" & tableName & "'"

Try '超过数据库并发承受力，会出现“行被锁定，无法更新”，要能捕获错误并跳过继续尝试

If cmd.ExecuteNonQuery() > 0 Then '更新编号

Exit Do '更新成功，说明编号可用，则退出循环

End If

Catch ex As Exception

End Try

Loop

Return No

[此贴子已经被作者于2022/7/21 15:29:33编辑过]

主题：为什么在DataRowAdd或者DataColChanged获取的的Identify总是比实际的多了1？我想用这个identify作为不重复自动编号列用