主题：控件赋值出错

测试步骤就如同我楼上那样选择，最后就是显示无法找到列 部门名称

 

分科目和分部门，全选或全不选是没有问题的，只选择其中一项就有问题，应该是条件判断有问题吧，但看来看去好象也没问题

If tj21.Checked=True And tj22.Checked=False Then
    bd2.Groups.AddDef("{同期预算}." & KMHZ,KMHZ)  '根据型号分组
ElseIf tj22.Checked=True And tj21.Checked=False Then
    bd2.Groups.AddDef("{同期预算}." & BMHZ,BMHZ)  '根据型号分组

勾选 【分科目】【分部门】，勾选两个。

 

不勾选，这样改代码

 

MessageBox.Show(4)
Dim bd2 As New SQLGroupTableBuilder("统计表2","同期预算")
Dim dt2  As  fxDataSource
bd2.AddTable("同期预算","部门名称","责任中心档案","部门名称") '添加统计表
bd2.AddTable("同期预算","科目名称","费用科目档案","科目名称") '添加统计表
If tj21.Checked=True And tj22.Checked=False Then

    bd2.Groups.AddDef("{同期预算}." & KMHZ, KMHZ)  '根据型号分组
ElseIf tj22.Checked=True And tj21.Checked=False Then
    bd2.Groups.AddDef("{同期预算}." & BMHZ, BMHZ)  '根据型号分组
Else
    bd2.Groups.AddDef("{同期预算}." & BMHZ, BMHZ)  '根据型号分组
    bd2.Groups.AddDef("{同期预算}." & KMHZ, KMHZ)  '根据型号分组
End If
bd2.Totals.AddDef("同期金额","同期")  '对数量进行统计
bd2.Filter = filter1
dt2 = bd2.BuildDataSource()

MessageBox.Show(5)

我就是这样测的，如果只勾选分科目，则显示不存在列 部门名称，如果只勾选分部门，则显示不存在列 科目名称

 

MessageBox.Show(5)
Dim  nms As String()
If tj21.Checked=True And tj22.Checked=False Then
    nms = new String() {kmhz}
ElseIf tj22.Checked=True And tj21.Checked=False Then
    nms = new String() {bmhz}
Else
    nms = new String() {kmhz, bmhz}
End If
dt1.Combine(nms,dt2,nms)  '将销售统计数据组合到进货统计数据

 

MessageBox.Show(6)