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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动编号

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

有点蓝

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

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/6 12:08:00 [显示全部帖子]

断号重用，需要添加一个断号表，把被删除的编号记录下来，在生成编号的时候，先到这个表查询获取最早的编号，如果没有再按照上面的方法生成新的编号

有点蓝

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

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/8 9:49:00 [显示全部帖子]

Dim Min As String

Dim max As String

Dim idx As Integer

If Tables("断号表").rows.count > 0 Then

Min = DataTables("断号表").Compute("Min(序号)")

e.DataRow("序号") = Min

DataTables("断号表").deletefor("[序号] = '" & Min & "'")

Else

max = e.DataTable.Compute("Max(序号)", "[_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("序号") = Format(idx, "000")

End If

主题：自动编号