主题：[求助]代码出错（已解决）

一段按钮代码，当表行数大于10行时，保留1-5行，其他行删除。运行出错，请各位老师指教，谢谢！！

 

Dim n As Integer = Tables("网内通讯").Rows.Count
If n > 10
    With DataTables("网内通讯")
        .StopRedraw
        For i As Integer = n To 5 Step -1
            DataTables("网内通讯").DataRows(i).Delete()
        Next
        .ResumeRedraw
    End With
End If

 

 

 

此主题相关图片如下：u.png

问题解决了，谢谢狐爸老师！！