以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  找出首次日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185963)

--  作者:tld
--  发布时间:2023/3/28 16:06:00
--  找出首次日期
老师好。表中有销售日期列,下列代码希望显示首次销售日期、最近销售日期、销售次数。请老师指教,谢谢!
Dim b As New SQLGroupTableBuilder("统计表1", dt.Name)
b.C
b.Groups.AddDef("单位名称") 
b.Totals.AddDef("费用")
b.Totals.AddExp("首单日期", "-----------------")
b.Totals.AddExp("末单日期", "-----------------")
b.Totals.AddExp("成交次数", "-----------------")
b.Build 

Tables(e.form.name & "_table1").DataSource = b.BuildDataSource()

--  作者:有点蓝
--  发布时间:2023/3/28 16:21:00
--  
b.Totals.AddExp("首单日期", AggregateEnum.min)
b.Totals.AddExp("末单日期", AggregateEnum.max)
b.Totals.AddExp("成交次数", AggregateEnum.count)

在Totals集合中添加一个统计列的语法如下: 

Totals.AddDef(Name)
Totals.AddDef(Name, NewName)
Totals.AddDef(Name, NewName, NewCaption)
Totals.AddDef(Name, Aggregate)
Totals.AddDef(Name, Aggregate, NewName)
Totals.AddDef(Name, Aggregate, NewName, NewCaption)

参数说明 

Name:        字符型,指定统计列。
NewName:     字符型,用于给统计列指定一个新的名称,这个名称在统计表中显示。
NewCaption:  字符型,用于给统计列设置标题。
Aggregate:  AggregateEnum枚举型,用于指定统计类型,默认是求和。

AggregateEnum型枚举的可选值:

Average:平均值
Count:  记录数
Max:    最大值
Min:    最小值
Sum:    累积值


--  作者:tld
--  发布时间:2023/3/28 16:37:00
--  
老师,下列代码出现错误
Dim b As New SQLGroupTableBuilder("统计表1", dt.Name)
b.C
b.Groups.AddDef("单位名称") 
b.Totals.AddDef("费用")
b.Totals.AddExp("日期", AggregateEnum.Min , "首单日期")
b.Totals.AddExp("日期", AggregateEnum.Max , "末单日期")
b.Totals.AddExp("日期", AggregateEnum.Count , "成交次数")
b.Build 
Tables(e.form.name & "_table1").DataSource = b.BuildDataSource()

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2023/3/28 16:37:16编辑过]

--  作者:有点蓝
--  发布时间:2023/3/28 16:42:00
--  
AddExp改为AddDef
--  作者:tld
--  发布时间:2023/3/28 16:46:00
--  
老师,知道哪里错了。谢谢