以文本方式查看主题 - 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 -- 应该是这个
|
||||
-- 作者:lsy -- 发布时间:2014/3/30 12:35:00 -- 是哪个窗口里面的操作,没找到啊。 |
||||
-- 作者:lsy -- 发布时间:2014/3/30 12:39:00 -- 找到了,稍候。 |