- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 版主，您好，咨询如何让ID列自动增加行后添加序列号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188991)
-- 发布时间：2023/11/3 16:44:00
-- 版主，您好，咨询如何让ID列自动增加行后添加序列号
版主，您好！如下表，新增行后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
Next
-- 发布时间：2023/11/3 16:58:00
--
设计窗口，放到窗口按钮里
-- 发布时间：2023/11/4 15:24:00
--
谢谢您，版主，是这样的吧。
此主题相关图片如下：视图.png
此主题相关图片如下：视图.png-- 发布时间：2023/11/4 16:33:00
--
测试有什么问题？