以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  交叉统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68255)
--  作者：联友
--  发布时间：2015/5/13 14:17:00
--  交叉统计

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:学生统计.zip

缴费信息表输入了2015年(春)信息统计结果是:


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150401140523.png
图片点击可在新窗口打开查看

缴费信息表没有2015年(秋)信息,统计结果想是:


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150401140942.png
图片点击可在新窗口打开查看

学期、班级从班级设置提取。

请指点代码？谢谢！

[此贴子已经被作者于2015/5/13 14:17:16编辑过]
--  作者：大红袍
--  发布时间：2015/5/13 14:25:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建 文本文档.txt
--  作者：联友
--  发布时间：2015/5/13 14:32:00
--  
谢谢！！
[此贴子已经被作者于2015/5/15 11:03:01编辑过]
--  作者：联友
--  发布时间：2015/5/15 12:11:00
--  

Dim sq2 As String = "Select  a.学期,a.班级,b.学生姓名,a.计划人数 F rom {缴费标准} a left join (Select  学期,班级,缴费项目,学生姓名,发票号 F rom {缴费信息} WHERE 缴费项目 = \'"& e.F orm.Controls("缴费项目").text & "\' And 发票号 not In (Select  发票号 F rom {退费信息})) b ON a.学期 = b.学期 And a.班级 = b.班级 where a.学期 = \'"& XQ &"\' and a.缴费项目 =\'学费\'"
       Dim b As New CrossTableBuilder("统计表2",sq2, "数据库")
       b.HGroups.AddDef("学期")
       b.VGroups.AddDef("班级")
       b.Totals.AddDef("学生姓名",AggregateEnum.Count，“学生数”)
       b.HorizontalTotal = True

计划人数-学生数=可招人数

请教代码怎么改？谢谢
--  作者：Bin
--  发布时间：2015/5/15 14:02:00
--  
参考帮助http://www.foxtable.com/help/topics/1428.htm
--  作者：联友
--  发布时间：2015/5/19 8:29:00
--  
谢谢！