版主，您好，咨询如何让ID列自动增加行后添加序列号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 版主，您好，咨询如何让ID列自动增加行后添加序列号

共有2459人关注过本帖树形打印复制链接主题：版主，您好，咨询如何让ID列自动增加行后添加序列号

divil

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

等级：童狐帖子：241 积分：2124 威望：0 精华：0 注册：2012/9/23 10:42:00

版主，您好，咨询如何让ID列自动增加行后添加序列号 发帖心情

Post By：2023/11/3 16:44:00 [显示全部帖子]

版主，您好！如下表，新增行后ID列自动添加序列号，具体函数我在论坛上找到了，就是不清楚粘贴在哪里实现这个功能，谢谢！

Dim r As Row = Tables("华为衰减器数据上传表").InsertNew()

Dim idx As Integer = 1

If r.index > 0 Then

idx = Tables("华为衰减器数据上传表").rows(r.index - 1)("ID") + 1

End If

For i As Integer = r.index To Tables("华为衰减器数据上传表").rows.count - 1

Tables("华为衰减器数据上传表").rows（i）("ID") = idx

idx += 1

divil

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

等级：童狐帖子：241 积分：2124 威望：0 精华：0 注册：2012/9/23 10:42:00

Post By：2023/11/4 15:24:00 [显示全部帖子]

谢谢您，版主，是这样的吧。
图片点击可在新窗口打开查看

此主题相关图片如下：视图.png

主题：版主，您好，咨询如何让ID列自动增加行后添加序列号