主题：[求助] 取值

再麻烦老师，修改如下，错误如图，请帮忙再指正一下，谢谢。

For Each rr As Row In Tables("GroupPrice").Rows
   
    rr("FPrioritized") = DataTables("Pricelist").Compute("count(FNumber)","FNumber = rr(FNumber) And FPrioritized= true")

    rr("Suppliers") = DataTables("Pricelist").Compute("count(FNumber)", "FNumber = rr(FNumber) ")
    rr("FLastModifiedDate") = DataTables("Pricelist").Compute("max(FLastModifiedDate)", "FNumber = rr(FNumber) And FPrioritized= true")
   
    Dim dr As DataRow = DataTables("Pricelist").Find( "FNumber = rr(FNumber) And FLastModifiedDate=#" & rr("FLastModifiedDate") & "# And FPrioritized = True")
   
    If dr IsNot Nothing Then
        rr("FPrice") = dr("FPrice")
        rr("FRemark") = dr("FRemark")
        rr("FQuoteTime") = dr("FQuoteTime")
        rr("FName1") = dr("FName")
       
    Else
        rr("FPrice") = Nothing
        rr("FRemark") = Nothing
        rr("FQuoteTime") = Nothing
        rr("FName1") = Nothing
       
    End If

Next

我改成如下的，还是有点不对，

For Each rr As Row In Tables("GroupPrice").Rows
   
    rr("FPrioritized") = DataTables("Pricelist").Compute("count(FNumber)","FNumber =  '" & Vars("FNumber") & "' And FPrioritized= true")
    rr("Suppliers") = DataTables("Pricelist").Compute("count(FNumber)", "FNumber = '" & Vars("FNumber") & "' ")
    rr("FLastModifiedDate") = DataTables("Pricelist").Compute("max(FLastModifiedDate)", "FNumber = '" & Vars("FNumber") & "' And FPrioritized= true")
   
    Dim dr As DataRow = DataTables("Pricelist").Find( "FNumber = '" & Vars("FNumber") & "' And FLastModifiedDate=#" & rr("FLastModifiedDate") & "# And FPrioritized = True")
   
    If dr IsNot Nothing Then
        rr("FPrice") = dr("FPrice")
        rr("FRemark") = dr("FRemark")
        rr("FQuoteTime") = dr("FQuoteTime")
        rr("FName1") = dr("FName")
       
    Else
        rr("FPrice") = Nothing
        rr("FRemark") = Nothing
        rr("FQuoteTime") = Nothing
        rr("FName1") = Nothing
       
    End If

Next

rr("FPrioritized") = DataTables("Pricelist").Compute("count(FNumber)","FNumber =  '" & rr("FNumber") & "' And FPrioritized= true")