以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能否多列重复填充  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114581)
--  作者：jyh7081
--  发布时间：2018/2/9 20:20:00
--  [求助]能否多列重复填充

重复填充的系统代码：   Syscmd.Edit.RepeatFill()

 

当并排连续的多列同时需要填充时，得重复操作几次重复填充；

能不能选中多列，一次完成多列的填充？

[此贴子已经被作者于2018/2/9 20:43:19编辑过]
--  作者：有点蓝
--  发布时间：2018/2/9 20:46:00
--  
源代码填充，参考：

Dim t As Table = Tables("表B")
If t.TopPosition >= 0 Then
    Dim r As Row = t.Rows(t.TopPosition)
    For i As Integer = t.TopPosition+1 To t.BottomPosition
        Dim nr As Row = t.Rows(i)
        For j As Integer = t.LeftCol To t.RightCol
            nr(j) = r(j)
        Next
    Next
End If