老师， 附图是针对采购订单列表设置的筛选窗口，目的是筛选符合条件的内容进行打印，TABLE是NORMAL型副本，筛选按钮代码如下：
Dim Filter As String
With e.Form.Controls("PO NO.")
If .Value IsNot Nothing Then
Filter = "订单编号 = '" & .Value & "'"
End If
End With
With e.Form.Controls("date")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 = '" & .Value & "'"
End If
End With
With e.Form.Controls("NO.")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "存货编号 = '" & .Value & "'"
End If
End With
With e.Form.Controls("NAME")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "存货名称 = '" & .Value & "'"
End If
End With
打印按钮代码如下：
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()
目前筛选按键没有反应，请老师指点。谢谢！
此主题相关图片如下：1.png
加好友 
发短信
Post By：2017/3/15 14:30:00 [只看该作者]
