以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  重复填充只能填充左侧列的问题解决方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173718)
--  作者：hfapplehao
--  发布时间：2021/12/13 15:04:00
--  重复填充只能填充左侧列的问题解决方法
有时候想使用重复填充，但是发现如果选中多列的话，重复填充的命令只针对第一列有效，后面的列又得重新选中，然后再使用命令，这样用起来有点麻烦。于是小的就写了下面代码，完美解决问题。使用方法，找到菜单。入图，然后把代码放进去就好
图片点击可在新窗口打开查看此主题相关图片如下：003.png
图片点击可在新窗口打开查看


Dim tb As Table = CurrentTable
If tb IsNot Nothing Then
    For i As Integer = tb.LeftCol To tb.RightCol
        For j As Integer = tb.TopRow+1 To tb.BottomRow
            tb.Value(j,i) = tb.value(tb.Toprow,i)
        Next
    Next
End If
--  作者：hfapplehao
--  发布时间：2021/12/14 18:06:00
--  
竟然没人夸我，唉....
--  作者：有点蓝
--  发布时间：2021/12/14 20:20:00
--  
嗯，表扬一下。其实能够解决自己工作的问题就好，何必在意这些。再说类似用法我貌似也回复过
--  作者：hfapplehao
--  发布时间：2021/12/15 9:09:00
--  
谢谢老师，哈哈，还是有点开心的