Dim sql As String  = "Select  学期,班级,学生姓名 From {缴费信息} WHERE  学期 = \'" & e.form.Controls("上学期").text & "\'and 缴费项目 = \'学费\'"
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 & "\' and a.缴费项目 = \'学费\'and b.缴费项目 = \'学费\'"
       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("统计表2",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([？],0) - IsNull([？],0)")  ‘第一列为：{0}_学生数,第二列为:{0}_老生报名数
End With

列名应该怎样引用，请指点，谢谢！

此主题相关图片如下：qq截图20141130173906.png

学期是动态

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