Foxtable(狐表)用户栏目专家坐堂 → 全选删除怎么一次只删一半


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

主题:全选删除怎么一次只删一半

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


加好友 发短信
等级:幼狐 帖子:129 积分:1489 威望:0 精华:0 注册:2018/7/8 13:04:00
全选删除怎么一次只删一半  发帖心情 Post By:2020/3/20 11:13:00 [只看该作者]


For Each r As Row In Tables("明细码").Rows
    If r.Checked Then
        r.Delete
    End If
Next


图片点击可在新窗口打开查看此主题相关图片如下:2020-03-20_111116.png
图片点击可在新窗口打开查看

这个删除的代码每次按一次只删除一半

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/20 11:35:00 [只看该作者]


或者 倒序删除
For i As Integer = Tables("明细码").Rows.Count-1 to 0 step -1
    If Tables("明细码").Rows(i).Checked Then
        Tables("明细码").Rows(i).delete()
    endif
Next


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


加好友 发短信
等级:幼狐 帖子:129 积分:1489 威望:0 精华:0 注册:2018/7/8 13:04:00
好的 感谢  发帖心情 Post By:2020/3/20 12:08:00 [只看该作者]

 好的  感谢

 回到顶部