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

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

共有3341人关注过本帖树形打印复制链接主题：自动编号查找空号补编号

cjl333333333

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

加好友

发短信

等级：童狐帖子：200 积分：1706 威望：0 精华：0 注册：2015/2/3 17:04:00

自动编号查找空号补编号 发帖心情

Post By：2021/1/24 18:53:00 [只看该作者]

你好，请教，我希望写一段自动编号代码然后能查找到空的号，比如现在有10条记录，就是从1号排到10号，但我这边其中2号编号记录已删除那我要首先找到它然后补这个编号，这个怎么写代码？请指教。

有点蓝

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

加好友

发短信

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

Post By：2021/1/24 21:35:00 [只看该作者]

添加一个回收表记录已经删除的编号，到业务表删除事件里，把当前删除的行的编号记录到回收表，然后新增行先到回收表去按顺序取最小的编号使用，使用后删除回收表这个编号。如果回收表没有数据再按照正常的方式生成新的编号

cjl333333333

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

加好友

发短信

等级：童狐帖子：200 积分：1706 威望：0 精华：0 注册：2015/2/3 17:04:00

Post By：2021/1/26 9:18:00 [只看该作者]

能直接给代码呀使用指南例子吗？

有点蓝

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

加好友

发短信

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

Post By：2021/1/26 9:29:00 [只看该作者]

没有例子。具体哪一步不会？

cjl333333333

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

加好友

发短信

等级：童狐帖子：200 积分：1706 威望：0 精华：0 注册：2015/2/3 17:04:00

Post By：2021/1/26 9:50:00 [只看该作者]

e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1 在新增行里加这个，然后我加多一列“报废”列，当“报废”列为TRUE 时，在新增列时就查找到最小的编号使用这个编号。

cjl333333333

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

加好友

发短信

等级：童狐帖子：200 积分：1706 威望：0 精华：0 注册：2015/2/3 17:04:00

Post By：2021/1/26 9:58:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

有点蓝

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

加好友

发短信

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

Post By：2021/1/26 10:02:00 [只看该作者]

dim s as string= e.DataTable.Compute("min(编号)","报废=true")

if s = "" then

s = e.DataTable.Compute("Max(编号)") + 1

end if

e.DataRow("编号") = cint(s)

下一主题 >> << 上一主题

主题：自动编号查找空号补编号