老师您好，写了这么个命令，用于选定一个区域，单击这个命令就可以用用第一行的数据往下填充。结果发现命令运行完毕后，没法回退。怎么改进啊
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
'If tb.Rows(i).locked = 0 Then '只有当前表没有被锁定和当前行没有被锁定才进行如下操作
tb.Value(j,i) = tb.value(tb.Toprow,i)
'End If
Next
Next
End If