主题：[求助]查询与赋值并存

1、不要频繁使用sqlCompute，这样效率低下；还不如先把要统计的数据加载出来或先统计出来，再查找。

2、

Dim ary() As String = {"销售数量", "销售金额", "销售成本"}
Dim dic As new Dictionary(Of DataRow, List(of double))
For Each dr As DataRow In DataTables("阿米巴基础日报表").DataRows
    Dim filter As String = "[日期] = '" & dr("日期") & "' and [店铺名称] = '" & dr("店铺名称") & "'"
    Dim ls As new List(Of Double)
    For Each s As String In ary
        Dim sum As Double = DataTables("销售日报").SQLCompute("sum(" & s & ")", filter)
        ls.add(sum)
    Next
    dic.add(dr, ls)
Next
For Each dr As DataRow In dic.Keys
    For i As Integer = 0 To ary.length-1
        dr(ary(i)) = dic(dr)(i)
    Next
Next