[灌水]"清除"按纽的清除速度太慢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [灌水]"清除"按纽的清除速度太慢

共有26127人关注过本帖树形打印复制链接主题：[灌水]"清除"按纽的清除速度太慢

czy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/3/16 18:00:00 [显示全部帖子]

表中有代码吗？

上传你的文件看看，或许自己写代码会好一点。

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/3/17 14:33:00 [显示全部帖子]

楼主说的清除和老六说的清除是两码事。

czy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/3/17 14:56:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-3-17 14:54:00的发言：
哈哈，这样可以了：

DataTables("表").DataRows.Clear()
Tables("表").AddNew(2000)

你好粗暴图片点击可在新窗口打开查看

czy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/3/17 20:23:00 [显示全部帖子]

有什么不好呢，反正他要清除表中的所有数据。

老六的方法虽然粗暴，但效果应该是根相当好的，估计比下面的代码要快的多。

For Each dr As DataRow in DataTables("表A").DataRows
    For Each dc As DataCol In DataTables("表A").DataCols
        dr(dc.Name) = Nothing
    Next
Next

如果必须保留某几列的数据，可以不要第二个For Each语句，加入指定名称就可以。