关于临时表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面是帮助“分组统计和交叉统计的实现原理”中的一段代码：

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 16)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
For Each nm As String In DataTables("订单").GetValues("产品")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("产品") = nm
    dr("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
    dr("金额") = DataTables("订单").Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
Next
MainTable= Tables("统计")

我想把[产品]改成[]和[月]，就是临时表为：

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("年", Gettype(Intege))

dtb.AddDef("月", Gettype(Intege))
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()

再往下该如何写代码？关键是“订单”表没有“年”和“月”列，用year(日期)和month(日期)替代？

方法二：用sqlGetValues

For Each nm As String() In DataTables("订单").SqlGetValues("year(日期)|month(日期)")

output.show(nm(0) & nm(1)

[此贴子已经被作者于2016/1/27 12:07:02编辑过]

没有取到值：

此主题相关图片如下：qq截图20160127121550.jpg

报错

此主题相关图片如下：qq截图20160127131006.jpg

代码为：

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("年", Gettype(String),16)
dtb.AddDef("月", Gettype(String),16)
dtb.AddDef("产品", Gettype(String), 16)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
For Each n As String In DataTables("订单").SqlGetValues("year(日期)")
    For Each y As String In DataTables("订单").SqlGetValues("month(日期)")
        Dim dr As DataRow = DataTables("统计").AddNew()
        dr("年") = n
        dr("月") = y
        dr("数量") = DataTables("订单").Compute("Sum(数量)","year(日期) = '" & n & "' and month(日期) ='" & y & "'")
        dr("金额") = DataTables("订单").Compute("Sum(金额)","year(日期) = '" & n & "' and month(日期) ='" & y & "'")
    Next
Next
MainTable= Tables("统计")

那就要用代码处理了

Se lect Distinct Year(日期) As 年, Month(日期) As 月, 产品 From {订单}

http://www.foxtable.com/help/topics/0695.htm

主题：关于临时表