主题：[求助]交叉表统计

Dim g As New SQLCrossTableBuilder("最高学历", "员工档案表")

g.C

g.HGroups.AddDef("部门体系")

g.HGroups.AddDef("工作部门")

g.HGroups.AddDef("办事处")

g.VGroups.AddDef("最高学历")

g.Totals.AddDef("员工编号", AggregateEnum.Count, "员工编号")

g.VerticalTotal= True '垂直汇总

g.HorizontalTotal = True '水平汇总

'g.Build()

If e.Form.Controls("部门体系").Value > "" AndAlso e.Form.Controls("工作部门").Value > "" AndAlso e.Form.Controls("办事处").Value > ""   Then

    g.Filter = "部门体系 = '" & e.Form.Controls("部门体系").Value & "' And 工作部门 = '" & e.Form.Controls("工作部门").Value & "' And 办事处 = '" & e.Form.Controls("办事处").Value & "'"

ElseIf e.Form.Controls("部门体系").Value > "" AndAlso e.Form.Controls("工作部门").Value > "" AndAlso e.Form.Controls("办事处").Value = "" Then

    g.Filter = "部门体系 = '" & e.Form.Controls("部门体系").Value & "' And 工作部门 = '" & e.Form.Controls("工作部门").Value & "'"

Else e.Form.Controls("部门体系").Value > "" AndAlso e.Form.Controls("工作部门").Value = "" AndAlso e.Form.Controls("办事处").Value = "" Then

    g.Filter = "部门体系 = '" & e.Form.Controls("部门体系").Value & "'"

End If

Tables("员工统计_Table1").DataSource = g.BuildDataSource

MainTable = Tables("员工统计_Table1")

MainTable.Font = New Font("宋体",10,FontStyle.Regular)

Tables("员工统计_Table1").AutoSizeCols()