主题：求助窗口筛选按钮代码

没有做过表A窗口的筛选（只做过字符型和日期型），也找不到范例，只好求助了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

不知到什么意思~ 

筛选年龄范围、社保和工伤。表A窗口中筛选按钮代码

等于没说, 还是不懂?   社保和工伤 要什么结果(要勾选吗)的参与筛选? 

是的要勾选的

你问题说不清楚啊~   是只勾选一个 还是 两个都必须勾上???

不管是1个还是2个，只要打勾都筛选出来。比如，工伤打了勾，社保没有打勾，也要筛选出来

其实你已经将窗口Table绑定到表A了(且不为副表),这样就可以了:
Tables("表A").Filter = "[年龄] > 25 And [年龄] <= 32 and [社保] = true and [工伤] = true or[年龄] > 25 And [年龄] <= 32 and [社保] = true and [工伤] = false or [年龄] > 25 And [年龄] <= 32 and [工伤] = true and [社保] = false "

checkbox 不要也可以........~

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "年龄 >= " & .Value
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "年龄 <= " & .Value
    End If
End With
With e.Form.Controls("CheckBox1")
    If .Checked  Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "社保 = 'True'"
    End If
End With
With e.Form.Controls("CheckBox2")
    If .Checked  Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工伤 = 'True'"
    End If
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

我要的是这样的筛选：1、[年龄]、[社保]、[工伤]列既可独立筛选，又可组合筛选。年龄不是25-32，而是在文本框中自由给定；2、勾选[社保]列，那么筛选出全部已勾显的[社保]列（不管[工伤]列是否勾选）反之也是。3、如果[社保]列和[工伤]列都够选，那么筛选出都够选的记录。