- 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=190878)
-- 发布时间：2024/3/10 20:51:00
-- 重复填充
老师，我设置了一个控件，我想点击这个控件时，能把窗口表“表A”，”当前状态“列里的数据向下重复填写（如图1，另这个窗口表是不能编辑的）
此主题相关图片如下：1.jpg
-- 发布时间：2024/3/10 21:09:00
--
With Tables("表A")
dim r as row = .rows(.TopPosition)
For i as Integer = .TopPosition+1 To .BottomPosition
.Rows(i)("当前状态") = r("当前状态")
.Rows(i)("当前状态") = r("当前状态")
Next
End With
End With
-- 发布时间：2024/3/10 21:21:00
--
我想直接点击那个控件自动填充，二楼的需要先把列选中，再点击控件才能填充
-- 发布时间：2024/3/10 21:41:00
--
那就改为遍历所有行呀