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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 序号自动增加问题

共有7734人关注过本帖树形打印复制链接主题：序号自动增加问题

有点蓝

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

加好友

发短信

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

Post By：2021/11/16 9:07:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/2403.htm

有点蓝

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

加好友

发短信

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

Post By：2021/11/16 10:07:00 [显示全部帖子]

贴出代码啊

有点蓝

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

加好友

发短信

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

Post By：2022/4/6 11:40:00 [显示全部帖子]

Dim idx As Integer

max = e.DataTable.sqlCompute("Max(编号)","录单 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号

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

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

Else

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

End If

e.DataRow("编号") = lb & Format(idx,"0000")

e.DataRow.save

End If

有点蓝

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

加好友

发短信

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

Post By：2022/4/6 13:36:00 [显示全部帖子]

idx = CInt(max.Substring(max.length - 4)) + 1

有点蓝

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

加好友

发短信

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

Post By：2022/10/26 9:37:00 [显示全部帖子]

编号有有规律，比如

1、长度必须一致，比如统一都是4位，不能一个是A002，然后下一个是AA001

2、前缀字母必须从小到大，比如上一个是A002，然后下一个是B001，不能上一个是B002，然后下一个从A001开始

没有规律的编号没有办法做的

有点蓝

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

加好友

发短信

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

Post By：2022/10/26 10:13:00 [显示全部帖子]

如果要根据选择的当前行生成新行的编号，不能放到datacolchanged事件处理，只能在按钮里，比如

Dim r As Row = Tables("原材料进货记录").current

dim idx as integer = CInt(r("编号").Substring(3)) + 1

Dim dr2 As Row = Tables("原材料进货记录").AddNew()

dr2("编号") = r("编号").Substring(0,,3) & Format(idx,"000")

有点蓝

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

加好友

发短信

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

Post By：2022/10/26 11:01:00 [显示全部帖子]

输多了一个逗号，自己去掉

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

主题：序号自动增加问题