Foxtable(狐表)用户栏目专家坐堂 → [求助]能否多列重复填充


  共有1882人关注过本帖树形打印复制链接

主题:[求助]能否多列重复填充

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:957 积分:8434 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]能否多列重复填充  发帖心情 Post By:2018/2/9 20:20:00 [只看该作者]

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

 

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

能不能选中多列,一次完成多列的填充?

[此贴子已经被作者于2018/2/9 20:43:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106207 积分:540158 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部