Dim Filter As String '设置筛选条件
With e.Form.Controls("DW")
If .Value IsNot Nothing Then
Filter = "所属单位 = '" & .Value & "'"
End If
End With
With e.Form.Controls("NF") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "年 = '" & .Value & "'"
End If
End With
With e.Form.Controls("Startdate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "所属日期 = #" & .Value & "#"
End If
End With
Dim bd1 As New SQLGroupTableBuilder("费用占比(小类)","部门损益总账")
Dim dt1 As fxDataSource
bd1.AddTable("部门损益总账","部门名称","部门档案","部门名称")
bd1.AddTable("部门损益总账","科目编号","科目档案","科目编码")
bd1.Groups.AddDef("所属单位")
bd1.Groups.Adddef("所属日期",DateGroupEnum.year,"年")
bd1.Groups.Adddef("所属日期",DateGroupEnum.none)
bd1.Groups.AddDef("二级科目","成本小类")
bd1.Totals.AddDef("借方发生","本月_费用")
bd1.Decimals = 0
bd1.Filter = "成本科目 = True And (" & filter & ")"
dt1 = bd1.BuildDataSource()
bd1.build
Dim bd2 As New SQLgroupTableBuilder("统计表2","部门损益总账")
Dim dt2 As fxDataSource
bd2.AddTable("部门损益总账","部门名称","部门档案","部门名称") '添加统计表
bd2.AddTable("部门损益总账","科目名称","科目档案","科目名称") '添加统计表
bd2.Groups.AddDef("所属单位")
bd2.Groups.Adddef("所属日期",DateGroupEnum.year,"年")
bd2.Groups.Adddef("所属日期",DateGroupEnum.none)
bd2.Groups.AddDef("一级科目")
bd2.Totals.AddDef("借方发生","主营业务收入")
bd2.Filter = "一级科目 = '主营业务收入' and (" & filter & ")"
dt2 = bd2.BuildDataSource()
Dim nms As String() = {"所属日期","年","所属单位"}
dt1.Combine(nms,dt2,nms)
dt1.Show("费用占比(小类)") '显示统计结果
此主题相关图片如下：33.png
上述两段代码中加了Groups.Adddef("所属日期",DateGroupEnum.year,"年")后，Dim nms As String() = {"所属日期","年","所属单位"}总是报错，请帮忙看看有什么问题
加好友 
发短信
Post By：2015/12/14 13:29:00 [显示全部帖子]
