主题：再求 高效率查询代码

提示，查询过程尽量少用Select语句，直接逐行比较，效率必须Select和Find高，一边赋值一边Select的效率比较低的:

 

尽量这样：

 

For Each r1 As DataRow In DataTables("表A").DataRows
    For Each r2 As DataRow In DataTables("表B").DataRows
        If r2("物料代码") = r1("物料代码") Then

        End if

    Next

Next

确实如此，又可减少1秒。

这样最快：2秒

For Each r1 As DataRow In DataTables("表A").DataRows
    Dim drb As DataRow
    drb = DataTables("表B").Find("[物料代码] = '" & r1("物料代码") & "'")
    If drb IsNot Nothing Then
        r1("第三列") = drb("第四列")
    End If
Next

呵呵，因为表A和表B都要写数据，所以还是避免find算了，数据量愈大，影响愈大。

100行不明显，10000行就要命。

具体看这个：

http://help.foxtable.com/topics/2225.htm

三段测试都是瞬间.

老爹  我睡醒了    辛苦你了   我现在 就调试  你的方法  

老爹 我没理清  思路    直接 逐行  这个 简单    但是   碰上  说明里面2.2  这种情况  那代码   该怎么写      

 

主要是 这里面  还有个 特殊性   比例  a表  需求的  数量 是 10   但是  在表  同代码的  数据  有3条   他们  加起来 才等于  10   这种情况  代码比较难写

 

这也是 这个运算过程中的 主要问题  

你那个写得比较乱，我也看不怎么明白，目前看来也不单单是我一个人看不明白，请用重新严谨清晰地表述一次。

老爹  做出来了   5w条  耗时  12 妙

呵呵，恭喜，你就是牛一头，不知疲倦，动力十足。