以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何将“学生成绩库”中每名学生的平时、期末、总评各科成绩等级分别输出到excel报表中相应单元格？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44595)
--  作者：方丈
--  发布时间：2014/1/4 16:22:00
--  [求助]如何将“学生成绩库”中每名学生的平时、期末、总评各科成绩等级分别输出到excel报表中相应单元格？
如何将“学生成绩库”中每名学生的平时、期末、总评各科成绩等级分别输出到excel报表中相应单元格？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:成绩等级打印.rar
--  作者：Bin
--  发布时间：2014/1/4 16:45:00
--  
http://www.foxtable.com/help/topics/1414.htm
--  作者：和睦
--  发布时间：2014/1/4 16:52:00
--  
帮助中的和这个不一样的，每一个学生有平时、期末、总评三行数据，每行14个科目成绩，分别要填充到报表的平时、期末、总评三列相应科目的单元格，每一页打印四名学生数据
[此贴子已经被作者于2014-1-4 20:36:50编辑过]
--  作者：Bin
--  发布时间：2014/1/4 17:15:00
--  
select * from (select * from (select * from {学生成绩库} where 成绩类别=\'平时\') 平时 inner join (select * from {学生成绩库} where 成绩类别=\'总评\') 总评 on 平时.座号=总评.座号) c inner join (select * from {学生成绩库} where 成绩类别=\'期末\') 期末 on c.平时.座号=期末.座号

利用上面这段SQL语句生成新的查询表,这样导出就非常简单了. 照着帮助做即可了.
--  作者：方丈
--  发布时间：2014/1/4 20:33:00
--  
只能用查询表过渡吗？
--  作者：有点甜
--  发布时间：2014/1/4 20:42:00
--  
 肯定是只能这样过度了。
--  作者：方丈
--  发布时间：2014/1/4 20:45:00
--  
谢谢
--  作者：方丈
--  发布时间：2014/1/5 11:32:00
--  

谢谢

[此贴子已经被作者于2014-1-5 12:23:01编辑过]
--  作者：方丈
--  发布时间：2014/1/5 22:15:00
--  

Dim A As String = Forms("成绩等级打印").Controls("ComboBox0").text
Dim B As String = Forms("成绩等级打印").Controls("ComboBox1").text
Dim D As String = Forms("成绩等级打印").Controls("ComboBox2").text
DataTables("成绩等级表").Fill("Select * from (Select * from (Select * from {学生成绩库} where 考试名称 = \'" & A & "\') 平时 inner join (Select * from {学生成绩库} where 考试名称 = \'" & B & "\') 期末 on 平时.身份证号 = 期末.身份证号) c inner join (Select * from {学生成绩库} where 考试名称 = \'" & D & "\') 总评 on c.平时.身份证号 = 总评.身份证号","网站数据库",False)
MainTable = Tables("成绩等级表")
MessageBox.Show("成绩等级表已生成!")

 

上述代码，总是提示错误
--  作者：有点甜
--  发布时间：2014/1/5 22:27:00
--  
 呃……说什么错也不说一下。而且你的这段代码无法在1楼的例子里测试。

 照着改不应该出错的啊，你看看你的列名是否写错了