| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 组合多个统计结果！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=37633) |
| -- 作者：wqb1102 -- 发布时间：2013/7/7 10:45:00 -- 组合多个统计结果！ 组合多个统计结果时，如果一个表中进行两次不同条件的统计，是否可以：如进货明细中分别有进货、退货，用如下代码统计时，提示已存在相同主键值。 Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进货明细")) Dim dt1 As fxDataSource bd1.Groups.AddDef("产品代码") \'根据产品代码分组 bd1.Groups.AddDef("产品名称") \'根据产品代码分组 bd1.Totals.AddDef("箱","进货_件") \'对数量进行统计 bd1.Filter = " 进货日期 >= #" & e.Form.Controls("StartDate").Value & "# And 进货日期 <= #" & e.Form.Controls("EedDate").Value & "# And [进货类别] = \'购进\'" dt1 = bd1.BuildDataSource() Dim bd2 As New GroupTableBuilder("统计表2",DataTables("销售明细")) Dim dt2 As fxDataSource bd2.Groups.AddDef("产品代码") \'根据产品代码分组 bd2.Groups.AddDef("产品名称") \'根据产品代码分组 bd2.Totals.AddDef("整件","销售_件") \'对数量进行统计 bd2.Filter = " 发货日期 >= #" & e.Form.Controls("StartDate").Value & "# And 发货日期 <= #" & e.Form.Controls("EedDate").Value & "# " dt2 = bd2.BuildDataSource() Dim bd3 As New GroupTableBuilder("统计表3",DataTables("退货明细")) Dim dt3 As fxDataSource bd3.Groups.AddDef("产品代码") \'根据产品代码分组 bd3.Groups.AddDef("产品名称") \'根据产品代码分组 bd3.Totals.AddDef("箱","退货_件") \'对数量进行统计 bd3.Filter = " 退货日期 >= #" & e.Form.Controls("StartDate").Value & "# And 退货日期 <= #" & e.Form.Controls("EedDate").Value & "# " dt3 = bd3.BuildDataSource() Dim bd4 As New GroupTableBuilder("统计表1",DataTables("进货明细")) Dim dt4 As fxDataSource bd4.Groups.AddDef("产品代码") \'根据产品代码分组 bd4.Groups.AddDef("产品名称") \'根据产品代码分组 bd4.Totals.AddDef("箱","进货_退厂件") \'对数量进行统计 bd4.Filter = " 进货日期 >= #" & e.Form.Controls("StartDate").Value & "# And 进货日期 <= #" & e.Form.Controls("EedDate").Value & "# And [进货类别] = \'退货\'" dt4 = bd4.BuildDataSource() dt1.Combine("产品代码",dt2,"产品代码") \'将销售统计数据组合到进货统计数据 dt1.Combine("产品代码",dt3,"产品代码") \'将退货统计数据组合到进货统计数据 dt1.Combine("产品代码",dt4,"产品代码") \'将厂家退货统计数据组合到进货统计数据 Tables("销售统计_Table1").DataSource = dt1 \'将统计结果绑定到Table With DataTables("销售统计_Table1").DataCols \'用表达式列计算库存数据 .Add("库存",Gettype(Integer), "IsNull([进货_件],0) - ISNULL([销售_件],0) - ISNULL([退货_件],0)- ISNULL([进货_退厂件],0)") End With |
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/8 8:54:00 -- 多少次都可以，但是你必须区分列名。
你第一次统计进货明细的时候，是：
bd1.Totals.AddDef("箱","进货_件") \'对数量进行统计
你第二次统计进货明细的时候，还是：
bd4.Totals.AddDef("箱","进货_退厂件") \'对数量进行统计
这样是不对的，你可以“进货箱数”和“退货箱数”表示，加以区分 [此贴子已经被作者于2013-7-8 8:54:45编辑过]
|
| -- 作者：wqb1102 -- 发布时间：2013/7/8 9:01:00 -- 多谢狐爸 进货明细中的数量只有一列“箱”，只是通过进货类别来区分是购进或退货， bd4.Totals.AddDef("退货箱数","退厂_件") \'对数量进行统计 代码中的"退货箱数"不是指进货明细表中要统计的列名吗？
[此贴子已经被作者于2013-7-8 12:59:12编辑过]
|