主题：统计表与引用

 

Dim bd1 As New GroupTableBuilder("统计表",DataTables("订单表"))
Dim dt1 As fxDataSource
bd1.FromServer = True  '后台统计
bd1.Groups.AddDef("订单号") '根据型号分组
bd1.Groups.AddDef("编号") '根据型号分组
bd1.Totals.AddDef("数量","数量") '对数量进行统计
dt1 = bd1.BuildDataSource()

Tables("统计表_Table1").DataSource = dt1 '将统计结果绑定到Table

With DataTables("统计表_Table1").DataCols
    .Add("单价",Gettype(Decimal))  '增加数据列
End With

 

我想把产品表的单价引用到("统计表_Table1")表。上述代码调试没问题。下面的代码不知如何编写，调试N次都不成功。

For Each r As Row In Tables("统计表_Table1").Rows
    Dim acmd As New SQLCommand
    Dim adt As DataRow
    acmd.C
    acmd.CommandText = "SELECT 销售价,折扣,金额 From {产品表} Where 订单号 = '" & r("订单号") & "' And  编号 = '" & r("编号") & "'"
    adt = acmd.ExecuteScalar()
    r("单价") = adt("单价")
Next

 

求助，如何将产品表的单价引用到("统计表_Table1")表对应行的单价列里

谢谢！