Dim sql As String = "Select 学期,班级,学生姓名 From {缴费信息} WHERE 学期 = '" & e.form.Controls("上学期").text & "'"
Dim sq2 As String = "Select a.学期,b.班级,a.学生姓名 From {缴费信息} a inner join {缴费信息} b on (a.学生姓名 = b.学生姓名) where b.学期 = '" & e.form.Controls("上学期").text & "' and a.学期 = '" & e.form.Controls("下学期").text & "'"
Dim bd1 As New CrossTableBuilder("统计表1",sql, "数据库")
Dim dt1 As fxDataSource
bd1.HGroups.AddDef("班级") '根据班级分组
bd1.VGroups.AddDef("学期","{0}_学生数") '添加产品列用于垂直分组
bd1.Totals.AddDef("学生姓名",AggregateEnum.Count,"学生数")
bd1.VerticalTotal = True
dt1 = bd1.BuildDataSource()
Dim bd2 As New CrossTableBuilder("统计表1",sq2, "数据库")
Dim dt2 As fxDataSource
bd2.HGroups.AddDef("班级") '根据班级分组
bd2.VGroups.AddDef("学期","{0}_老生报名数") '添加产品列用于垂直分组
bd2.Totals.AddDef("学生姓名",AggregateEnum.Count,"老生报名数")
bd2.VerticalTotal = True
dt2 = bd2.BuildDataSource()
dt1.Combine("班级",dt2,"班级") '将销售统计数据组合到进货统计数据
Tables("分析_Table1").DataSource = dt1
With DataTables("分析_Table1").DataCols '用表达式列计算库存数据
.Add("老生没报数",Gettype(Integer), "IsNull([学生姓名_1],0) - IsNull([学生姓名_11],0)")
End With
加好友 
发短信
Post By：2014/12/1 9:36:00 [显示全部帖子]
