老师,我设置了一个控件,我想点击这个控件时,能把窗口表“表A”,”当前状态“列里的数据向下重复填写(如图1,另这个窗口表是不能编辑的)

此主题相关图片如下:1.jpg

With Tables("表A")dim r as row = .rows(.TopPosition)
For i as Integer = .TopPosition+1 To .BottomPosition
.Rows(i)("当前状态") = r("当前状态")
Next
End With
我想直接点击那个控件自动填充,二楼的需要先把列选中,再点击控件才能填充