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

我又没看懂····  

 

表A：
物料代码	需求数量	第三列
H.TA01.019	2
H.TA01.019	9
表B：
物料代码	在制数量	第四列
H.TA01.019	10	F002-20
H.TA01.019	40	F002-20

 

 

上面这样的要怎么弄才符合你的要求？ 

就是看不懂你的文本啊， 9楼的表A第三列应该等于什么吧。。。。。

b表哪有第三列？？？

应该是表B的第四列吧：

 

For i As Integer = 0 To CurrentTable.count-1
    Dim r As Row = CurrentTable.Rows(i)   
    If r.isnull("第三列")
        Dim drs As List(Of DataRow)
        drs = DataTables("表A").Select("[物料代码] = '" & r("物料代码") & "'")
        For Each dr As DataRow In drs
            Dim drb As DataRow
            drb = DataTables("表B").Find("[物料代码] = '" & r("物料代码") & "'")
            If drb IsNot Nothing Then
                dr("第三列") = drb("第四列")
            End If
        Next
    End If
Next

效率的标准是什么，几秒？

我测试我的后，一万行也就5秒钟（我的电脑是06年的）。

确实如此，又可减少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