下移
If CurrentTable.current.Index=CurrentTable.Rows.count-1 Then
CurrentTable.current.Move(0)
Else
CurrentTable.current.Move(CurrentTable.current.Index+1)
End If
上移
If CurrentTable.current.Index=0 Then
CurrentTable.current.Move(CurrentTable.Rows.count-1)
Else
CurrentTable.current.Move(CurrentTable.current.Index-1)
End If