- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码出错（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19690)
-- 发布时间：2012/5/18 10:24:00
-- [求助]代码出错（已解决）
一段按钮代码，当表行数大于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
[此贴子已经被作者于2012-5-18 10:41:41编辑过]
-- 发布时间：2012/5/18 10:36:00
--
Dim n As Integer = DataTables("网内通讯").DataRows.Count - 1
-- 发布时间：2012/5/18 10:41:00
--
问题解决了，谢谢狐爸老师！！