以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  listview 怎么对单列刷新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188042)

--  作者:lianghanyu
--  发布时间:2023/8/29 9:04:00
--  listview 怎么对单列刷新

  已经生成了一个表, 第一列是序号,  我想移除任意两行,  然后序号列重新生成,怎么样能实现?


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2023/8/29 9:16:00
--  
从被移除的行的上一行开始,遍历后面的行重新生成序号,比如

dim r as row = tables(“表A”).current
dim i as integer = 0
if r.index > 0 then
i = r.index - 1
end if
r = tables(“表A”).rows(i)
dim m as integer = r("序号")
for j as integer = i+1 to tables(“表A”).rows.count - 1
m = m + 1
tables(“表A”).rows(j)("序号") = m
next