| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]有什么简单的方式可以快速补齐数列 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=188458) |
| -- 作者：moseser -- 发布时间：2023/9/20 19:38:00 -- [求助]有什么简单的方式可以快速补齐数列 例：以下有6行，我想实现的是，删掉任意一行，其后续的序号自动跟齐 如删掉第4行，那么 ，第5行的序号会自动减1， 第6行的序号，也自动减1
序号 1 2 3 4 5 6 |
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2023/9/21 10:54:00 -- 这个没实际意义，一般不用这个来编号 |