Foxtable(狐表)用户栏目专家坐堂 → 快速清空表


  共有2385人关注过本帖平板打印复制链接

主题:快速清空表

美女呀,离线,留言给我吧!
朱女士
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:453 积分:3683 威望:0 精华:0 注册:2020/2/8 11:14:00
快速清空表  发帖心情 Post By:2023/3/2 16:48:00 [只看该作者]

老师您好!
     我有一个模块,要想清空表,以下这个方法,运行没有问题就是运行速度慢。有没有快速清空表的方法? 谢谢!
    Dim hs As Integer = Tables("实时工序计算表").Rows.Count()
If hs <> 0 Then
    For i As Integer = Tables("实时工序计算表").Rows.Count - 1 To 0 Step - 1
            Tables("实时工序计算表").Rows(i).delete()
    Next
End If


 回到顶部