Foxtable(狐表)用户栏目专家坐堂 → [求助]有什么简单的方式可以快速补齐数列


  共有3039人关注过本帖树形打印复制链接

主题:[求助]有什么简单的方式可以快速补齐数列

帅哥哟,离线,有人找我吗?
moseser
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
[求助]有什么简单的方式可以快速补齐数列  发帖心情 Post By:2023/9/20 19:38:00 [只看该作者]

例:以下有6行,我想实现的是,删掉任意一行,其后续的序号自动跟齐
如删掉第4行,那么 ,第5行的序号会自动减1, 第6行的序号,也自动减1
序号
1
2
3
4
5
6


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110784 积分:563852 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/21 9:02:00 [只看该作者]

到datarowdeleting事件里

dim r as row = tables(e.datatable.name).findrow(e.datarow)
dim a as integer = r("序号")
for i as integer = r.index + 1 to tables(e.datatable.name).rows.count - 1
tables(e.datatable.name).rows(i)("序号") = a
a += 1
next

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3210 积分:21336 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/9/21 10:54:00 [只看该作者]

这个没实际意义,一般不用这个来编号

 回到顶部