我在窗口内用单选按钮让用户选择交叉统计的行与列，用复选框来让用户切换是否汇总，代码如下：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")
运行时发现，切换单选时没问题，而切换复选框时，结果相反，即选中时不汇总，不选中反而汇总
加好友 
发短信
Post By：2022/10/31 16:47:00 [只看该作者]
此主题相关图片如下：汇总2.png
