以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何打印筛选出来的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70599)
--  作者：小老鼠
--  发布时间：2015/6/24 22:35:00
--  [求助]如何打印筛选出来的数据

筛选条码Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "录入时间 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "录入时间  <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("质控管理").Filter = Filter
End If

 

求助 打印条码？？？
--  作者：大红袍
--  发布时间：2015/6/24 22:36:00
--  

http://www.foxtable.com/help/topics/0554.htm

 
--  作者：小老鼠
--  发布时间：2015/6/24 22:40:00
--  
谢谢，大红袍