共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：版主，您好，咨询如何让ID列自动增加行后添加序列号
1楼
divil 发表于：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
Next
2楼
有点蓝 发表于：2023/11/3 16:58:00设计窗口，放到窗口按钮里
3楼
divil 发表于：2023/11/4 15:24:00谢谢您，版主，是这样的吧。
此主题相关图片如下：视图.png
此主题相关图片如下：视图.png4楼
有点蓝 发表于：2023/11/4 16:33:00测试有什么问题？
共4 条记录, 每页显示 10 条, 页签:
[1]