主题：请教运行效率问题

 表A是SQLGroupTableBuilder生成的表，需要全部导入表B，使用FILL方法不成功，使用如下代码耗时27秒 

With Tables("表B")，

    .StopRedraw

    Dim dt0 As DataTable=DataTables("表A")

DataTables("表B").DataRows.clear

For Each dr As DataRow In dt0.DataRows

        Dim dr2 As DataRow=DataTables("表B").AddNew

For Each dc As DataCol In dt0.DataCols

                   dr2(dc.name)= dr(dc.name)

        Next

    Next

    .ResumeRedraw

End With

请教大师对上述既遍历行又扁历列的情况如何修改以提高运行效率，谢谢。

 试试用filler

有工具不用，非要手工编码，用了手工编码，就别谈什么效率了。你那编码已经是手工编码里面最简洁的了！！！！

如果确实要这样行列取值，还是先获得表的行数，定义数组，然后将A表数据读入数组，然后再写入B表，用Excel我有过经验，不会超过1秒

此主题相关图片如下：qq图片20131012204320.jpg

Dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("表B")
f.Fill（）
生成表A只用了0.09秒，后面这个代码用了30秒，可是存在什么问题？

 我测试了一下新增行的耗时，发觉一行一行新增太耗时间，试试一次性新增，可能会提升一些速度。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

 

5000行数据复制大约0.2秒

 

 我测试7楼的例子，直接复制，也是只要1秒左右的时间。