此主题相关图片如下：重复.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
Do
'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编辑过]
加好友 
发短信
Post By：2022/7/20 10:57:00 [只看该作者]
