以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 条件汇总 (http://foxtable.net/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 -- 单价有什么问题? |