以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于序号列自动调整  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159672)

--  作者：wugang0131 --  发布时间：2021/1/4 11:06:00 --  关于序号列自动调整 请教蓝老师，在“表任意位置插入一行，则“序号列”自动顺序调整，该如何写代码？谢谢蓝老师

--  作者：有点蓝 --  发布时间：2021/1/4 11:52:00 --   Dim r As Row = Tables("表A").InsertNew() dim idx as integer =1 if r.index > 0 then   idx = Tables("表A").rows(r.index-1)("序号") + 1 end if for i as integer = r.index to Tables("表A").rows.count - 1 Tables("表A").rows（i）("序号") = idx idx += 1 next 如果要更新的数据多就不要做这种功能了

--  作者：wugang0131 --  发布时间：2021/1/4 15:55:00 --   谢谢蓝老师，又学了一招