主题：统计

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

学期是动态