主题：[求助]索引超出范围

Dim Filter As String  = "1=1" '设置筛选条件
With e.Form.Controls("BM")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter  = Filter & " And "
        End If
        Filter  = Filter & "{同期预算}.部门名称 In ( '" & .Value.replace(",","','") & "')"
    End If
End With

Dim b  As New SQLCrossTableBuilder("统计表1","同期预算")
 b.AddTable("同期预算","部门名称","责任中心档案","部门名称")
b.AddTable("同期预算","科目名称","费用科目档案","科目名称")
b.HGroups.AddDef("{同期预算}.科目名称")
b.VGroups.AddDef("月份","{0}月") 
b.Totals.AddDef("预算金额")
b.Filter = "{同期预算}.科目名称 not in ('成本金额','吊牌金额') and 部门属性 = '职能部门' And (" & filter & ")"
b.HorizontalTotal = True

 

b.Build

Tables("预算汇总信息_Table1").DataSource = b.BuildDataSource()

 

其中 BM控件为CheckedComboBox类型，出现以下错误

 

 

 

此主题相关图片如下：1.png


此主题相关图片如下：2.png

我用的是窗口table,发现是因为使用窗口table造成的,怎么解决呢

我测试了一下这段代码，没问题

 

Dim b As New SQLCrossTableBuilder("统计表1","订单")
b.AddTable("订单","产品编号","产品","产品编号") '添加统计表
b.AddTable("订单","客户编号","客户","客户编号") '添加统计表
b.HGroups.AddDef("日期",DateGroupEnum.Year,"年") '添加日期列用于垂直分组,按年分组
b.HGroups.AddDef("{订单}.客户编号") '添加产品列用于垂直分组
b.VGroups.AddDef("客户名称","{0}_数量") '添加客户列用于水平分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.HorizontalProportion = True '生成水平份额
b.filter = "{订单}.客户编号 in (1,3)"
Tables("trtr_table1").DataSource  = b.BuildDataSource

 

请做具体例子发上来测试。

哦，搞清楚了，b.Build忘记去掉了