主题：[求助] 遍历太慢

老师，这个运行太慢，有没有优化的可行性 ？谢谢。

For Each rrr As Row In Tables("PPV").Rows

    Dim cmd4 As new SQLCommand
    cmd4.C
    cmd4.CommandText = "S elect FPrice From {t_SupplyEntry} Where FItemID = '" & rrr("FItemID") & "'and FUsed = 1 and FPrioritized = 0"
    Dim Values4 = cmd4.ExecuteValues
    If Values4.Count > 0 Then
        rrr("LatestPrice") = Values4("FPrice")

    End If

Next