Foxtable(狐表)用户栏目专家坐堂 → 用代码如何删除4行以后的所有行


  共有1984人关注过本帖树形打印复制链接

主题:用代码如何删除4行以后的所有行

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6848 积分:43334 威望:0 精华:0 注册:2009/3/2 14:07:00
用代码如何删除4行以后的所有行  发帖心情 Post By:2015/6/10 15:11:00 [只看该作者]

如题

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/10 15:12:00 [只看该作者]

For i As Integer = Tables("表a").Rows.Count - 1 To 4 Step -1
    Tables("表a").Rows(i).Delete
Next

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/6/10 15:13:00 [只看该作者]

datatables("X").deletefor("_SortKey>" & tables("X").rows(3)("_SortKey"))

 回到顶部