以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  条件汇总  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136757)
--  作者：admin22327
--  发布时间：2019/6/21 7:32:00
--  条件汇总
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进货单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("品名") \'根据品名分组
bd1.Groups.AddDef("型号") \'根据型号分组
bd1.Totals.AddDef("数量","进货_数量") \'对数量进行统计
bd1.Totals.AddDef("金额","进货_金额") \'对金额进行统计
dt1 = bd1.BuildDataSource() 

在这个代码里面加如下一个时间条件，汇总金额和数量，怎么弄呢，谢谢

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
[此贴子已经被作者于2019/6/21 7:35:59编辑过]
--  作者：有点蓝
--  发布时间：2019/6/21 9:00:00
--  
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进货单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("品名") \'根据品名分组
bd1.Groups.AddDef("型号") \'根据型号分组
bd1.Totals.AddDef("数量","进货_数量") \'对数量进行统计
bd1.Totals.AddDef("金额","进货_金额") \'对金额进行统计
bd1.filter = Filter 
dt1 = bd1.BuildDataSource() 
--  作者：admin22327
--  发布时间：2019/6/21 15:12:00
--  
im bd1 As New SQLGroupTableBuilder("统计表1","进货单")
Dim dt1 As fxDataSource
bd1.Groups.AddDef("型号") \'根据型号分组
bd1.Totals.AddDef("数量","进货_数量") \'对数量进行统计
bd1.Totals.AddExp("进货_金额","数量 * 单价") \'对金额进行统计
dt1 = bd1.BuildDataSource/font>()

Dim bd2 As New SQLGroupTableBuilder("统计表2","销售单")
Dim dt2 As fxDataSource
bd2.Groups.AddDef("型号") \'根据型号分组
bd2.Totals.AddDef("数量","销售_数量") \'对数量进行统计
bd2.Totals.AddExp("销售_金额","数量 * 售价") \'对金额进行统计
dt2 = bd2.BuildDataSource/font>()

问题一 我要把下面这几列隐藏起来，怎么处理
bd1.Groups.AddDef("型号") \'根据型号分组
bd1.Totals.AddDef("数量","进货_数量") \'对数量进行统计
bd1.Totals.AddExp("进货_金额","数量 * 单价") 

问题二 下面的售价调用进货单的单价怎么调用
bd2.Totals.AddExp("销售_金额","数量 * 售价"）
[此贴子已经被作者于2019/6/21 15:12:34编辑过]
--  作者：有点甜
--  发布时间：2019/6/21 15:28:00
--  

生成统计表以后，隐藏列，如

 

Tables("表A").cols("第一列").visible = false

Tables("表A").cols("第二列").visible = false
--  作者：admin22327
--  发布时间：2019/6/21 21:02:00
--  
im bd1 As New SQLGroupTableBuilder("统计表1","进货单")
Dim dt1 As fxDataSource
bd1.Groups.AddDef("型号") \'根据型号分组
bd1.Totals.AddDef("数量","进货_数量") \'对数量进行统计
bd1.Totals.AddExp("进货_金额","数量 * 单价") \'对金额进行统计
dt1 = bd1.BuildDataSource/font>()

Dim bd2 As New SQLGroupTableBuilder("统计表2","销售单")
Dim dt2 As fxDataSource
bd2.Groups.AddDef("型号") \'根据型号分组
bd2.Totals.AddDef("数量","销售_数量") \'对数量进行统计
bd2.Totals.AddExp("销售_金额","数量 * 售价") \'对金额进行统计
dt2 = bd2.BuildDataSource/font>()

问题 下面的售价调用进货单的单价怎么
bd2.Totals.AddExp("销售_金额","数量 * 售价"）
[此贴子已经被作者于2019/6/21 21:02:19编辑过]
--  作者：有点蓝
--  发布时间：2019/6/21 21:07:00
--  
单价有什么问题？