简单呀,把学院放进组合框,选择哪个就用哪个Dim App As New MSExcel.Application
dim names as string
dim a As String =e.Form.Controls("ComboBox1").text
For Each s As String In DataTables("学院班级").getValues("班级名称","学院名称='" &a &"'")
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/6/16 10:43:38编辑过]
加好友 
发短信
Post By：2015/6/16 10:38:00 [显示全部帖子]
