- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于交叉统计汇总问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183324)
-- 发布时间：2022/10/31 16:47:00
-- [求助]关于交叉统计汇总问题
我在窗口内用单选按钮让用户选择交叉统计的行与列，用复选框来让用户切换是否汇总，代码如下：
Dim rdoUnit1 As WinForm.RadioButton = e.Form.Controls("rdo_UnitFirst")
Dim rdoUnit2 As WinForm.RadioButton = e.Form.Controls("rdo_UnitSecond")
Dim chkSummary As WinForm.CheckBox = e.Form.Controls("chk_Summary")
Dim i As Integer, n As Integer
Dim strSpe() As String
Dim strUnit() As String
Dim g As New CrossTableBuilder("统计表1", DataTables("设备材料表"))
If rdoUnit1.Checked Then
g.HGroups.AddDef("主项")
g.VGroups.AddDef("专业", "{0}_金额")
Else
g.HGroups.AddDef("专业")
g.VGroups.AddDef("主项", "{0}_金额")
End If
g.Totals.AddDef("金额", "金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.VerticalProportion = True
Output.Show(chkSummary.Checked)
If chkSummary.Checked = True Then
g.Subtotal = True \'生成汇总模式
g.SubtotalLevel = 0 \'只生成总计行
Else
g.Subtotal = False \'不生成汇总模式
End If
g.Build()
Tables("Form_Stastistics_tbl_Stastistics").DataSource = DataTables("统计表1")
运行时发现，切换单选时没问题，而切换复选框时，结果相反，即选中时不汇总，不选中反而汇总
-- 发布时间：2022/10/31 16:51:00
--
上述代码在另一个button（btn_CreateChart）的click事件中，
而单选和复选按钮的CheckedChanged事件以及窗口的AfterLoad事件中代码均为：
e.Form.Controls("btn_CreateChart").performclick()
-- 发布时间：2022/10/31 16:52:00
--
代码放在什么事件里的？
-- 发布时间：2022/10/31 17:19:00
--
上述代码在另一个button（btn_CreateChart）的click事件中
-- 发布时间：2022/10/31 17:26:00
--
g.Build()
Tables("Form_Stastistics_tbl_Stastistics").DataSource = DataTables("统计表1")
改为这样试试
Tables("Form_Stastistics_tbl_Stastistics").DataSource = g.BuildDataSource()
-- 发布时间：2022/10/31 17:36:00
--
附件上传看不到链接
-- 发布时间：2022/10/31 17:37:00
--
运行结果如下
此主题相关图片如下：汇总2.png
此主题相关图片如下：汇总1.png
-- 发布时间：2022/10/31 17:39:00
--
感觉合计列紊乱了
-- 发布时间：2022/10/31 17:40:00
--
没有问题呀，汇总模式显示总计有啥问题？
-- 发布时间：2022/10/31 17:58:00
--
好像我这里的汇总有点多余
[此贴子已经被作者于2022/10/31 18:09:21编辑过]