以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  选择多列填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54229)
--  作者：lshshlxsh
--  发布时间：2014/7/24 8:41:00
--  选择多列填充
请问一下Syscmd.Edit.RepeatFill()只能填充一列，如果要实现一次性多列填充？
--  作者：有点甜
--  发布时间：2014/7/24 9:20:00
--  

单独做一个按钮，选中多列，然后运行代码

 

For i As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
    For j As Integer = CurrentTable.TopRow + 1 To CurrentTable.BottomRow
        CurrentTable.Rows(j)(i) = CurrentTable.Rows(CurrentTable.TopRow)(i)
    Next
Next
--  作者：lshshlxsh
--  发布时间：2014/7/24 10:11:00
--  

谢谢有点甜！图片点击可在新窗口打开查看
--  作者：湛江智
--  发布时间：2018/8/16 10:14:00
--  回复：（有点甜）单独做一个按钮，选中多列，然后运行...
 撤销 选择多列填充 上面代码操作的代码怎么写呢？
Syscmd.Edit.Undo()

With Tables("表A")
    If .Current IsNot Nothing Then
        .Current.Reject()
    End If
End With

上面代码都无效
[此贴子已经被作者于2018/8/16 10:14:00编辑过]
--  作者：有点甜
--  发布时间：2018/8/16 10:15:00
--  
For j As Integer = CurrentTable.TopRow + 1 To CurrentTable.BottomRow
    CurrentTable.Rows(j).Reject
Next