- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何让填充数据从指定的位置开始填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149458)
-- 发布时间：2020/5/2 23:01:00
-- 如何让填充数据从指定的位置开始填充
兰老师，如何让填充数据从指定的位置和指定的起始数开始填充，如下图从地4行8值开始填充至第10行结束，实例传上。谢谢老师
此主题相关图片如下：图片4.png
-- 发布时间：2020/5/3 9:15:00
--
可以看看：
Dim idx As Integer = 1
Dim t As Table = Tables("表A")
For i As Integer = t.TopPosition To t.BottomPosition
t.rows(i)("第一列")= idx
idx+= 1
Next
-- 发布时间：2020/5/3 12:30:00
--
如何才能实现下图的效果，及选中第四行到12行后，执行代码，能够按要求序列填充，目前执行，序列填充是从1开始的，而且不会再选定的最后一行止住，代码如何改
Dim idx As Integer =1
Dim t As Table = Tables("表A")
For i As Integer =t.TopPosition To t.BottomPosition Step 3
Tables("表A").rows(i)("第一列") = idx
If i+1 < Tables("表A").rows.count Then Tables("表A").rows(i+1)("第一列") = idx
If i+2 < Tables("表A").rows.count Then Tables("表A").rows(i+2)("第一列") = idx
idx+= 1
Next
此主题相关图片如下：图片5.png
-- 发布时间：2020/5/4 8:41:00
--
Dim idx As Integer =1
Dim t As Table = Tables("表A")
For i As Integer =t.TopPosition To t.BottomPosition Step 3
Tables("表A").rows(i)("第一列") = idx
If i+1 <= t.BottomPosition Then Tables("表A").rows(i+1)("第一列") = idx
If i+2 <= t.BottomPosition Then Tables("表A").rows(i+2)("第一列") = idx
idx+= 1
Next