以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 合并统计表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190965) |
-- 作者:tld -- 发布时间:2024/3/17 10:21:00 -- 合并统计表 老师好 希望合并订单表与返修表的统计结果到一个表,下列代码统计了订单表的数据。 Dim b As New SQLGroupTableBuilder("统计表1", "订单") b.Conn ection Name = "s" b.Groups.AddDef("产品ID") b.Totals.AddDef("价格") b.Totals.AddDef("销售日期", AggregateEnum.Min , "首单日期") b.Totals.AddDef("销售日期", AggregateEnum.max , "末单日期") b.Totals.AddDef("销售日期", AggregateEnum.Count , "成交次数") b.Filter = "日期 >= \'" & t1 & "\' And 日期 <= \'" & t2 & "\'" b.Build Tables(e.form.name & "_table1").DataSource = b.BuildDataSource() 还有一个“返修”表,数据源相同,记录产品的返修时间,希望将这个表的数据也统计到"统计表1"。 Dim b2 As New SQLGroupTableBuilder("统计表2", "返修") b2.Conn ection Name = "s" b2.Groups.AddDef("产品ID") b2.Totals.AddDef("返修日期", AggregateEnum.Min , "首次返修") b2.Totals.AddDef("返修日期", AggregateEnum.max , "最近返修") b2.Totals.AddDef("返修日期", AggregateEnum.Count , "返修次数") b2.Filter = "返修日期 >= \'" & t1 & "\' And 返修日期 <= \'" & t2 & "\'" b2.Build [此贴子已经被作者于2024/3/17 10:24:53编辑过]
|
-- 作者:有点蓝 -- 发布时间:2024/3/17 20:42:00 -- 参考:http://www.foxtable.com/webhelp/topics/2320.htm |