关于自动编号的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于自动编号的问题

共有1992人关注过本帖树形打印复制链接主题：关于自动编号的问题

benwong2013

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

等级：一尾狐帖子：485 积分：4081 威望：0 精华：0 注册：2015/12/16 8:22:00

关于自动编号的问题 发帖心情

Post By：2017/9/13 16:37:00 [只看该作者]

若需要网络上编号的话需要openQQ来作为服务器，但考虑到日常人数不用太多的事情下，我考虑在提交记录的时候用按键来生成编号，试过是可行的，请问这样有没有什么弊端；

Dim NY As String ="SZ001" & "-" & Format(Date.Today,"yyyyMM") & "-"

Dim max As String

Dim idx As Integer

Max = DataTables("表A").SQLCompute("Max(第一列)","Substring(第一列,1,13) = '"& NY &"'")

If Max > "" Then

idx = CInt(max.Substring(13,3) + 1)

Else

idx = 1

End If

MessageBox.Show(NY & Format(idx,"000"))

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/13 17:06:00 [只看该作者]

你生成编号后，必须马上赋值给第一列，然后保存那一行。不然，别人接着按下查找到的也是同样的编号

弊端是：两个人同时按下按钮，有可能查询到的最大编号一样，导致编号重复。

积水成渊

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

等级：小狐帖子：348 积分：2805 威望：0 精华：0 注册：2016/8/24 10:39:00

Post By：2017/10/21 11:15:00 [只看该作者]

有点甜老师说的对，我现在就是遇到了这个尴尬的问题，导致单据编号重复

主题：关于自动编号的问题