以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何将结果在窗口上的文本框显示?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164303)

--  作者:lin98
--  发布时间:2021/5/5 14:56:00
--  如何将结果在窗口上的文本框显示?
窗口上有以下的标签和文本框:

本月订单总单数: 文本框1;   本月订单总数量: 文本框2;     
如何将统计在文本框?
Dim Filter As String
Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("交货日期","月") 
b.Totals.AddDef("交货日期",AggregateEnum.Count,"订单数")
b.Totals.AddDef("数量","订购数量") \'添加数量列用于统计
b.Filter = Filter
Tables("分组加载统计_Table1").DataSource = b.BuildDataSource()

--  作者:有点蓝
--  发布时间:2021/5/5 15:00:00
--  
Tables("分组加载统计_Table1").DataSource = b.BuildDataSource()
if Tables("分组加载统计_Table1").rows.count > 0 then
e.form.controls("文本框1").text = Tables("分组加载统计_Table1").rows(0)("订单数")
end if