Foxtable(狐表)用户栏目专家坐堂 → [讨论]输出指定学院里面的所有班级PDF


  共有2691人关注过本帖平板打印复制链接

主题:[讨论]输出指定学院里面的所有班级PDF

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


加好友 发短信
等级:童狐 帖子:201 积分:1386 威望:0 精华:0 注册:2015/4/14 17:39:00
[讨论]输出指定学院里面的所有班级PDF  发帖心情 Post By:2015/6/16 10:28:00 [只看该作者]

这两天思考代码,想的头发也白了很多。 看视频里面,一直说代码很简单,一点没有高深的内容。 可是自己要变通,多么艰难啊。



我今天请教的问题是,我有一个 学院班级 表。里面有所在学院 班级名称  两列。  
    我想指定一个学院,输出这个指定学院里面的所有班级PDF

如下代码,我该如何修改一下才符合要求?

Dim App As New MSExcel.Application
dim names as string 
For Each  s As String In DataTables("学院班级").getValues("班级名称")
    
    Dim Book As New XLS.Book(ProjectPath & "Attachments\学籍卡.xls") '打开模板
    Dim fl As String = ProjectPath & "Reports\" & s & ".pdf"
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(1,9).Value = "<[班级名称] = '" & s &"'>"
    Book.Build() '生成报表
    
    book.SaveToPDF(fl)

 Next

Dim Proc As New Process    '打开报表输出目录
Proc.File = ProjectPath & "reports"
Proc.Start()



此主题相关图片如下:2015-06-16_102622.png
按此在新窗口浏览图片

 回到顶部
总数 11 1 2 下一页