Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有1628人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
scqianlima
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:39 积分:383 威望:0 精华:0 注册:2016/1/26 10:19:00
[求助]  发帖心情 Post By:2017/8/11 10:52:00 [只看该作者]

做一学生成绩报表,原数据如下图:

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170811103817.png
图片点击可在新窗口打开查看
现想做出报表输出为下图模样,

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170811104847.png
图片点击可在新窗口打开查看
求教要如何实现,麻烦帮写个模板,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/11 11:04:00 [只看该作者]

方法一:分组+标签

 

http://www.foxtable.com/webhelp/scr/1542.htm

 

http://www.foxtable.com/webhelp/scr/1414.htm

 

方法二:生成一个统计表

 

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("学号", Gettype(String), 16)
dtb.AddDef("姓名", Gettype(String), 16)
dtb.AddDef("课程名称1", Gettype(String))
dtb.AddDef("课程名称2", Gettype(String))
dtb.AddDef("课程名称3", Gettype(String))
dtb.Build()
For Each nm() As String In DataTables("成绩").GetValues("学号|姓名")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("学号") = nm(0)
    dr("姓名") = nm(1)
    Dim drs = DataTables("成绩").GetValues("课程名称","学号 = '" & nm(0) & "' And 姓名 = '" & nm(1) & "'")
    For i As Integer = 0 To drs.count-1
        dr("课程名称" & i+1)= drs(i)
    Next
Next
MainTable= Tables("统计")


 回到顶部
帅哥哟,离线,有人找我吗?
scqianlima
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:39 积分:383 威望:0 精华:0 注册:2016/1/26 10:19:00
回复:(有点甜)方法一:分组+标签 http://...  发帖心情 Post By:2017/8/11 11:24:00 [只看该作者]

方法二的代码要放在哪里啊?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/11 11:25:00 [只看该作者]

单独做一个按钮

 

http://www.foxtable.com/webhelp/scr/0213.htm

 


 回到顶部