试试
Dim str1 As String = e.Form.Controls("ComboBox1").Value '选年份
Dim str2 As String = e.Form.Controls("ComboBox2").Value '选月份
Dim str3 As String = e.Form.Controls("ComboBox2").Value '选单位
Dim str4 As String = e.Form.Controls("ComboBox3").Value '选文件名
Dim filter As String = "1=1"
If str2 > "" Then
filter &= " and 月份 = '" & str2 & "'"
End If
If str3 > "" Then
filter &= " and 单位 = '" & str3 & "'"
End If
If str1 > "" Then
filter &= " and 年份 = '" & str1 & "'"
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & str4 & ".xls") '打开模板
Dim fl As String = ProjectPath & "Reports\" & str4 & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<" & filter & ">" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2017/8/17 10:33:07编辑过]
加好友 
发短信
Post By：2017/8/16 21:35:00 [显示全部帖子]
