主题：序列填充加个键盘操作快捷键就好

Dim t As Table = CurrentTable

Dim c As Integer

For i As Integer= t.TopPosition+1 To t.BottomPosition

    If t.Rows(i-1).IsNull(t.Cols(t.ColSel).Name)=False Then

        t.Rows(i)(t.Cols(t.ColSel).Name) = Cint(t.Rows(i-1)(t.Cols(t.ColSel).Name))+1

    End If

Next