主题：[求助]上移行与下移行

    Select Case e.Sender.Name
        Case "ButtonMoveUp"       '上移行
            .StopRedraw
            Dim i As Integer
            Dim i1 As Integer = .TopRow                                    '最上行位置
            Dim i2 As Integer = .BottomRow                                 '最末行位置
            If i1 >= 1 Then                                                '如不判断,最上一行会往下跑
                For i = i1 To i2
                    .Rows(i).Move(i-1)
                Next
                .Select(i1-1,.Cols(.colsel).index,i2-1,.Cols(.colsel).index)
            Else
                .Select(i1,.Cols(.colsel).index,i2,.Cols(.colsel).index)
            End If
            .ResumeRedraw
            .Focus
            .Save()
        Case "ButtonMoveDown"     '下移行
            .StopRedraw
            Dim i As Integer
            Dim i1 As Integer = .TopRow                                    '最上行位置
            Dim i2 As Integer = .BottomRow                                 '最末行位置
            If i2 <= .Rows.Count -2 Then
                For i = i2 To i1 Step -1
                    .Rows(i).Move(i+1)
                Next
                .Select(i1+1,.Cols(.colsel).index,i2+1,.Cols(.colsel).index)
            Else
                .Select(i1,.Cols(.colsel).index,i2,.Cols(.colsel).index)
            End If
            .ResumeRedraw
            .Focus
            .Save()

估计是有表事件，表达式计算等影响。把这个表所有事件去掉测试慢不慢？