[求助]关于联网多人增加行自动编号的代码的优化请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于联网多人增加行自动编号的代码的优化请教

共有2641人关注过本帖树形打印复制链接主题：[求助]关于联网多人增加行自动编号的代码的优化请教

qwz405

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：526 积分：5089 威望：0 精华：0 注册：2015/4/15 15:25:00

Post By：2018/1/11 14:49:00 [显示全部帖子]

老师，我在DataColChanged输入以下代码，在网络上使用还是会出现重复编号，要如何处理？

Select Case e.DataCol.name

Case "创建日期" '由创建日期自动生成计划明细编码

If e.DataRow.IsNull("创建日期") Then

e.DataRow("编码") = Nothing

Else

If e.DataRow.IsNull("编码") Then

Dim d As Date = e.DataRow("创建日期")

Dim bh As String = Format(d,"yyMM")

Dim str As String = Format(e.DataRow("_Identify"),"00000")

e.DataRow("计划明细编码") = "JH" & bh & "-" & str

End If

End Select

qwz405

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：526 积分：5089 威望：0 精华：0 注册：2015/4/15 15:25:00

Post By：2018/1/11 14:54:00 [显示全部帖子]

谢谢老师~

[此贴子已经被作者于2018/1/11 15:01:34编辑过]

主题：[求助]关于联网多人增加行自动编号的代码的优化请教