主题：重复填充

前几天，有人误操作“重复填充”，一下把近5000条数据给填充了，有没有设置重复填充一次只能填充20条一下的数据，请教老师！

20条以下的数据

 你通过什么方法填充数据的？贴出你写的代码。

重复填充的代码：syscmd.edit.repeatfill()

 你自己写代码替换原来的代码

 

Dim t As Table = CurrentTable
If t.BottomRow - t.TopRow > 20 Then
    msgbox("不能超过20行")
Else
    For j As Integer = t.LeftCol To t.RightCol
        Dim str As String = t.rows(t.TopRow)(j)
        For i As Integer = t.TopRow To t.BottomRow
            t.rows(i)(j) = str
        Next
    Next
End If

Dim t As Table = CurrentTable
If t.BottomRow - t.TopRow > 20 Then
    msgbox("不能超过20行")
Else
    syscmd.edit.repeatfill()
End If

老师我写了这样的代码，可以吗？，，还有这三段代码，哪个最可靠？

如果加了快捷键，，限制是不是对快捷键也有效？

 

嗯嗯，是的。你的代码可以执行。