Dim Filter As String
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "报价日期 = '" & .Value & "'"
'Filter = Filter & "报价日期 = #" & .Value & "#" '如果是内部表
End If
End With
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "旺旺QQ = '" & .Value & "'"
End If
End With
Tables("报价单").Filter = Filter
Dim Book As New XLS.Book(ProjectPath & "Attachments\报价表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\报价表.xls"
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2016/1/16 11:02:00 [显示全部帖子]
