[求助] 报表输出问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：360截图20160418111947294.jpg

再设置一次汇总模式就行了。

http://www.foxtable.com/help/topics/00144.htm

11楼是使用以下命令实现的统计；要添加什么命令才能增加一个按照【关停时间】列对【割接数量统计】的小计？

Dim g As New GroupTableBuilder("回访统计表", DataTables("宽带帐号割接回访表")) '要显示统计结果的表名,要进行统计的表
g.Groups.AddDef("关停时间", DateGroupEnum.None) '日期类的统计条件
g.Groups.AddDef("确定已经割接日期", DateGroupEnum.None) '日期类的条件条件
g.Totals.AddDef("确定已经割接日期", AggregateEnum.Count, "割接数量统计") '将要进行数量统计的列填写到要显示的列
g.Filter = "确定已经割接日期 is not null" '筛选统计内容
g.VerticalTotal = True '统计合计
g.Build() '重新生成记录窗口
Dim t As Table = Tables("割接统计窗口_Table1") '要显示统计结果的表存放到哪里(绑定统计表)
t.DataSource = g.BuildDataSource() '生成表
t.SetColVisibleWidth("关停时间|120|确定已经割接日期|120|割接数量统计|100") '统计表的格式(要显示的列)

生成以后再进行一次汇总啊

http://www.foxtable.com/help/topics/00144.htm

我的意思是要写成在统计窗口的命令；因为刚才在【数据统计/汇总模式】中是可以直接对临时表进行小计统计；但是在我的【割接统计窗口】中却无法显示小计结果。
图片点击可在新窗口打开查看

此主题相关图片如下：360截图20160418125137431.jpg

拷贝代码出来，写在分组统计的后面，表名写成这个 Dim t As Table = Tables("割接统计窗口_Table1")

1、在以下命令中、增加什么命令能够实现汇总统计？

2、在以下命令中，【关停时间】为空、【确定已经割接日期】不为空的内容怎么没有被统计出来？

图片点击可在新窗口打开查看此主题相关图片如下：360截图20160418151327024.jpg

Dim g2 As New GroupTableBuilder("回访统计表2", DataTables("宽带帐号割接回访表")) '要显示统计结果的表名,要进行统计的表
g2.Groups.AddDef("关停时间", DateGroupEnum.None) '日期类的统计条件
g2.Totals.AddDef("关停时间", AggregateEnum.Count, "关停数量统计") '将要进行数量统计的列填写到要显示的列
g2.Build() '重新生成记录窗口

t2.DataTable.DataCols.Add("割接数量统计", Gettype(Double))
For Each r1 As Row In t2.Rows
Dim c_gt1 As Integer = DataTables("宽带帐号割接回访表").compute("count(确定已经割接日期)", "关停时间 = '"& r1("关停时间") & "' ")
r1("割接数量统计") = c_gt1
Next

此主题相关图片如下：360截图20160418151006768.jpg

[此贴子已经被作者于2016/4/18 15:15:12编辑过]

1、参考

http://www.foxtable.com/help/topics/2305.htm

2、生成以后，设置一次汇总模式。

在表的 AfterLoad 中写有以下命令；由于 e.Form.Controls("TextBox1").text = 后面的内容太长、很难编辑；有没有办法让命令可以分行编辑？

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

e.Form.Controls("TextBox1").text = "割接统计: 割接工单【" & DataTables("宽带帐号割接回访表").Compute("Count(割接情况)"," 割接情况 <> '' ") & "】未割接【" & DataTables("宽带帐号割接回访表").Compute("Count(割接情况)"," 割接情况 = '未割接' ") & "】已割接【" & DataTables("宽带帐号割接回访表").Compute("Count(割接情况)"," 割接情况 = '已割接' ") & "】" &vbcrlf & vbcrlf & "今天新增割接数量:【" & DataTables("宽带帐号割接回访表").Compute("Count(确定已经割接日期)","确定已经割接日期 >= '" & Format(dt, "yyyy-MM-dd") & "' ") & "】" & vbcrlf & vbcrlf & "未割接工单分类:" & vbcrlf & "无帐号期限信息【" & DataTables("宽带帐号割接回访表").Compute("Count(用户是否过期)"," 割接情况 = '未割接' and 用户是否过期 = '无帐号期限信息' ") & "】" & vbcrlf &"用户帐号未到期【" & DataTables("宽带帐号割接回访表").Compute("Count(用户是否过期)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' ") & "】" & vbcrlf &"用户帐号已到期【" & DataTables("宽带帐号割接回访表").Compute("Count(用户是否过期)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号已到期' ") & "】" & vbcrlf & vbcrlf &"未割接帐号未到期工单分类:"& vbcrlf &"待回访【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接'and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '待回访' ") & "】" & vbcrlf &"成功回访(用户表示会自行修改)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(用户表示会自行修改)' ") & "】" & vbcrlf &"成功回访(等用户在家再联系)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(等用户在家再联系)' ") & "】" & vbcrlf &"成功回访(需预约上门处理)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(需预约上门处理)' ") & "】" & vbcrlf &"成功回访(用户表示不再使用)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(用户表示不再使用)' ") & "】" & vbcrlf &"继续回访(用户没有接电话或没空)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接'and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '继续回访(用户没有接电话或没空)' ") & "】" & vbcrlf &"无法联系(联系方式错误)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '无法联系(联系方式错误)' ") & "】" & vbcrlf &"成功回访(用户表示已经修改)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(用户表示已经修改)' ") &"】" & vbcrlf & vbcrlf &"已割接工单关停情况:"& vbcrlf &"未关停【" & DataTables("宽带帐号割接回访表").Compute("Count(关停情况)"," 割接情况 = '已割接' and 关停情况 = '未关停' ") & "】" & vbcrlf & "已关停【" & DataTables("宽带帐号割接回访表").Compute("Count(关停情况)"," 割接情况 = '已割接' and 关停情况 = '已关停' ") & "】" & vbcrlf & vbcrlf & "未割接工单关停情况:"& vbcrlf &"未关停【" & DataTables("宽带帐号割接回访表").Compute("Count(关停情况)"," 割接情况 = '未割接' and 关停情况 = '未关停' ") & "】" & vbcrlf & "已关停【" & DataTables("宽带帐号割接回访表").Compute("Count(关停情况)"," 割接情况 = '未割接' and 关停情况 = '已关停' ") & "】"

主题：[求助] 报表输出问题