主题：统计

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

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

前面用 as 命名好列名 然后下面就用这个名字引用

列名是动态的

 具体例子说明问题，需要额外处理

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

学期是动态

 直接取文本框的值，拼凑成列名

.Add("老生没报数",Gettype(Integer), "IsNull([" & e.form.Controls("上学期").text  & "],0) - IsNull([" & e.form.Controls("下学期").text  & "],0)")  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.zip

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

谢谢！有点甜老师