以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口筛选按钮总是部分不识别,请帮看看  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48487)

--  作者:tesia255
--  发布时间:2014/3/30 11:42:00
--  窗口筛选按钮总是部分不识别,请帮看看
各位老师,情况如题,我写的代码如下:如果选择了退款状态,就筛选不出公司名称,退款有三个状态:全部|退款|未退款,默认是全部

Dim Filter As String
With e.Form.Controls("company")
    If .Value IsNot Nothing Then
        Filter = "公司名称=\'" & .Value & "\'"
    End If
End With

With e.Form.Controls("company1")
    If .Value <> "全部" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = "退款状态=\'" & .Value & "\'"
    End If
End With


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 & " AND  [付款时间]  Is not null"
End If



--  作者:lsy
--  发布时间:2014/3/30 11:53:00
--  
上例子。
--  作者:tesia255
--  发布时间:2014/3/30 12:19:00
--  
恩 ,请您帮看下, 文本筛选的只能筛选一个
[此贴子已经被作者于2014-3-30 12:32:12编辑过]

--  作者:lsy
--  发布时间:2014/3/30 12:24:00
--  
在哪个地方操作?
--  作者:y2287958
--  发布时间:2014/3/30 12:30:00
--  
有个附件疑似盗版
[此贴子已经被作者于2014-3-30 12:31:28编辑过]

--  作者:tesia255
--  发布时间:2014/3/30 12:30:00
--  
筛选键的点击 事件
--  作者:tesia255
--  发布时间:2014/3/30 12:32:00
--  
哦  我好像多给您发了个文件   是项目1/项目1   是里面那个执行文件
--  作者:tesia255
--  发布时间:2014/3/30 12:34:00
--  
应该是这个  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


--  作者:lsy
--  发布时间:2014/3/30 12:35:00
--  
是哪个窗口里面的操作,没找到啊。
--  作者:lsy
--  发布时间:2014/3/30 12:39:00
--  
找到了,稍候。