老师,这个运行太慢,有没有优化的可行性 ?谢谢。
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