[求助]对现有记录增加编号的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]对现有记录增加编号的问题

共有2792人关注过本帖树形打印复制链接主题：[求助]对现有记录增加编号的问题

瞩望星空

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

等级：二尾狐帖子：531 积分：4727 威望：0 精华：0 注册：2013/4/20 20:08:00

[求助]对现有记录增加编号的问题 发帖心情

Post By：2014/12/18 9:33:00 [只看该作者]

有一表，增加了一列“编号”（C,12），现在想以前头字母为"ABCD-"，再加后7位记录位置作为编号。

参考帮助“自动编号”的写法，用下面代码出错。

For Each dr As DataRow In DataTables("表A").datarows

dr("编号") ="ABCD-" + SubString("0000000", 1, 7 - Len(Convert([_Identify],'System.String'))) + Convert([_Identify], 'System.String')

[此贴子已经被作者于2014-12-18 9:32:53编辑过]

有点甜

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

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

Post By：2014/12/18 10:02:00 [只看该作者]

你这种是表达式列的公式来的。

瞩望星空

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

等级：二尾狐帖子：531 积分：4727 威望：0 精华：0 注册：2013/4/20 20:08:00

Post By：2014/12/18 11:28:00 [只看该作者]

嗯，找错帮助位置了。应该可以搞掂。

最后的代码如下:
Dim max As Integer=0
For Each dr As DataRow In DataTables("表A").datarows
max=max+1
dr("编号") ="ABCD-" & Format(max,"0000000")
Next

[此贴子已经被作者于2014-12-18 22:04:22编辑过]

主题：[求助]对现有记录增加编号的问题