以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]需把高级筛选放在窗口中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45408)
--  作者：xianxin2010
--  发布时间：2014/1/24 13:01:00
--  [求助]需把高级筛选放在窗口中
4个红框的数字是用户自己输入的，字符小类和C是用户选择的 见高级筛选里的1， 原来在高级筛选里输入 现在镶嵌到窗口里输入 大于小于等于不用选固定好了， 输入框内数字就行

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新的.table

 


图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截屏未命名.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-1-24 16:17:23编辑过]
--  作者：飞天
--  发布时间：2014/1/24 13:24:00
--  
Dim Filter As String
With e.Form.Controls("控件1")
    If .Value IsNot Nothing Then
        Filter = "列名1 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("控件2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "列名2 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("控件3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "列名3 = \'" & .Value & "\'"
    End If
End With

If Filter > "" Then
    Tables("表A").Filter = Filter
End If
--  作者：lsy
--  发布时间：2014/1/24 13:35:00
--  

整数A < AND > 整数B

整数C < AND > 整数D

 

不好理解：

看起来好像是，A、B、C、D四列都要求小于后面的值。
--  作者：xianxin2010
--  发布时间：2014/1/24 15:00:00
--  
以下是引用lsy在2014-1-24 13:35:00的发言：

整数A < AND > 整数B

整数C < AND > 整数D

 

不好理解：

看起来好像是，A、B、C、D四列都要求小于后面的值。

 重新上传了，

[此贴子已经被作者于2014-1-24 15:08:21编辑过]
--  作者：lsy
--  发布时间：2014/1/24 15:13:00
--  

包含的意思，是相同或相似。

而绑定的值，只会是相同。

如果改变绑定的值，就修改了表，因为筛选而修改表，不合理。

如果不改变绑定值，绑定第一列、第四列的控件值就是当前行的固定值，这样的筛选也有点怪。

[此贴子已经被作者于2014-1-24 15:13:43编辑过]
--  作者：Bin
--  发布时间：2014/1/24 15:13:00
--  
确实不好理解你的需求,看了半天没搞懂.
--  作者：xianxin2010
--  发布时间：2014/1/24 15:22:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：未命名.png
图片点击可在新窗口打开查看

 

不用包含 等于就行，应该不会改变原来的值的 就是把高级筛选放在窗口上

--  作者：xianxin2010
--  发布时间：2014/1/24 15:34:00
--  
以下是引用Bin在2014-1-24 15:13:00的发言：
确实不好理解你的需求,看了半天没搞懂.

 版主和诸位老师帮忙看看
--  作者：xianxin2010
--  发布时间：2014/1/24 16:27:00
--  
以下是引用飞天在2014-1-24 13:24:00的发言：
Dim Filter As String
With e.Form.Controls("控件1")
    If .Value IsNot Nothing Then
        Filter = "列名1 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("控件2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "列名2 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("控件3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "列名3 = \'" & .Value & "\'"
    End If
End With

If Filter > "" Then
    Tables("表A").Filter = Filter
End If

看不懂 只找到一个只带的 窗口筛选.table
--  作者：lsy
--  发布时间：2014/1/24 16:37:00
--  

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:模拟高级筛选.table

[此贴子已经被作者于2014-1-24 16:40:31编辑过]