主题：运算速度问题

代码的质量好坏，速度相差可以上千倍。

帮助有一章讲述这个，建议从这一节开始看看：

http://www.foxtable.com/help/topics/2226.htm

加上两行会快一些：
 
Dim QDdr As DataRow
Dim QDi As Integer
DataTables("C_WLQD").StopRedraw
With DataTables("C_WLQD")
    .DataRows.Clear()
End With
For Each QDdr In DataTables("ProductStructures").DataRows
    Dim QDr As Row = Tables("C_WLQD").Rows.AddNew()
    QDr("母件编码") = QDdr("cPSPCode")
    QDr("子件编码") = QDdr("cPSCode")
    QDr("子件名称") = QDdr("存货名称")
    QDr("规格型号") = QDdr("规格型号")
    QDr("计量单位") = QDdr("计量单位")
    QDr("定额含量") = QDdr("直接数量")
    QDr("计划单价") = QDdr("计划单价")
    QDr("金额") = QDdr("金额")
Next
DataTables("C_WLQD").ResumeRedraw
 
如果速度还是不快，可以看看这个：

http://www.foxtable.com/help/topics/1935.htm

还可以看看：

http://www.foxtable.com/help/topics/2218.htm

如果两个表的结构一样，直接一条SQL语句搞定：

Select * From {第一个表} InTo {第二个表}