以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  设计筛选窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61435)
--  作者：mengyun2020
--  发布时间：2014/12/12 11:06:00
--  设计筛选窗口

Dim Filter As String

 

With e.Form.Controls("店")
    If .Value IsNot Nothing Then
        Filter = "店面 = \'" & .Value & "\'"
    End If
End With

 


With e.Form.Controls("订单号")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "合同号 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("厂家单号")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "下单号 = \'" & .Value & "\'"
    End If
End With

With e.Form.Controls("家庭地址")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = "家庭住址 Like \'*" & . Value & "*\'"
    End If
End With
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    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

 

我将筛选按纽的代码写成这个，可是一选店面，在概选地址的时候，比如打个凤凰小区，三个店面的凤凰小区几号楼几单元都出来了，我要筛选其中一个店面的，就筛选不出来了
--  作者：mengyun2020
--  发布时间：2014/12/12 11:07:00
--  
With e.Form.Controls("家庭地址")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = "家庭住址 Like \'*" & . Value & "*\'"
    End If
End With
是不是我这个代码写错了呢
--  作者：mengyun2020
--  发布时间：2014/12/12 11:31:00
--  

有人在不？
--  作者：Bin
--  发布时间：2014/12/12 11:32:00
--  
把你的FIlter 弹出来看看
--  作者：有点甜
--  发布时间：2014/12/12 11:34:00
--  

 如果满足条件，就肯定会显示出来的啊。

 

 你要选出一个，就具体填了更详细的地址啊
--  作者：mengyun2020
--  发布时间：2014/12/12 11:52:00
--  
我在店面选的居然，在地址选的凤凰小区，可是点筛选的时候出来的是鑫源，居然的凤凰小区
--  作者：有点甜
--  发布时间：2014/12/12 11:54:00
--  
不应该吧？你把你做的上传上来看看。
--  作者：mengyun2020
--  发布时间：2014/12/12 16:31:00
--  

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
--  作者：mengyun2020
--  发布时间：2014/12/12 16:32:00
--  
你看一下我用咱们的列子，只选产品，跟雇员，你就能看出来
--  作者：有点甜
--  发布时间：2014/12/12 16:35:00
--  
Filter = Filter & "雇员 Like \'%" & . Value & "%\'"