主题：请教运行效率问题

 表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

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