[浏览完整版]
标题：[灌水]"清除"按纽的清除速度太慢
1楼
abcdzabcdz 发表于：2009/3/16 17:53:00我试将一个有18列2000行的全数据表用"清除"按纽清除数据,在CPU为1G的计算机上运行,大约需2分钟,请老六看一下.
2楼
czy 发表于：2009/3/16 18:00:00表中有代码吗？
上传你的文件看看，或许自己写代码会好一点。
3楼
abcdzabcdz 发表于：2009/3/16 18:03:00没有代码,自己写代码速度快很多.
4楼
狐狸爸爸 发表于：2009/3/16 20:43:00这是一个毛病，用Clear:
DataTables("表").DataRows.Clear()
DataTables("表").DataRows.Clear()
5楼
林中侠 发表于：2009/3/17 13:31:00记号
6楼
czy 发表于：2009/3/17 14:33:00楼主说的清除和老六说的清除是两码事。
7楼
狐狸爸爸 发表于：2009/3/17 14:54:00哈哈，这样可以了：
DataTables("表").DataRows.Clear()
Tables("表").AddNew(2000)
DataTables("表").DataRows.Clear()
Tables("表").AddNew(2000)
8楼
czy 发表于：2009/3/17 14:56:00以下是引用狐狸爸爸在2009-3-17 14:54:00的发言：
哈哈，这样可以了：
DataTables("表").DataRows.Clear()
Tables("表").AddNew(2000)
哈哈，这样可以了：
DataTables("表").DataRows.Clear()
Tables("表").AddNew(2000)
你好粗暴
9楼
狐狸爸爸 发表于：2009/3/17 15:11:00
10楼
czy 发表于：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语句，加入指定名称就可以。
老六的方法虽然粗暴，但效果应该是根相当好的，估计比下面的代码要快的多。
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语句，加入指定名称就可以。