以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于多列重复填充问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186860)

--  作者:bigeng
--  发布时间:2023/6/3 19:59:00
--  关于多列重复填充问题
下列代码,无论全局表还是当前表的KeyDown下,都无法实现多列重复填充,请帮忙看看什么原因?
If e.keycode = keys.Q AndAlso e.control = True Then
    If CurrentTable.Current IsNot Nothing Then
        Dim r As Row = CurrentTable.Rows(CurrentTable.TopPosition)
        For i As Integer = CurrentTable.TopPosition + 1 To CurrentTable.BottomPosition
            Dim nr As Row = CurrentTable.Rows(i)
            For j As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
                nr(j) = r(j)
            Next
        Next
    End If 
End If

--  作者:bigeng
--  发布时间:2023/6/3 20:28:00
--  
没问题了,可能有重复的快捷键。