- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助窗口筛选按钮代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5277)
-- 发布时间：2009/12/4 21:43:00
-- 求助窗口筛选按钮代码
没有做过表A窗口的筛选（只做过字符型和日期型），也找不到范例，只好求助了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2009/12/4 22:03:00
--
不知到什么意思~
-- 发布时间：2009/12/4 22:28:00
--
筛选年龄范围、社保和工伤。表A窗口中筛选按钮代码
-- 发布时间：2009/12/4 22:37:00
--
等于没说, 还是不懂? 社保和工伤 要什么结果(要勾选吗)的参与筛选?
-- 发布时间：2009/12/4 22:42:00
--
是的要勾选的
-- 发布时间：2009/12/4 22:48:00
--
你问题说不清楚啊~ 是只勾选一个 还是 两个都必须勾上???
-- 发布时间：2009/12/4 22:53:00
--
不管是1个还是2个，只要打勾都筛选出来。比如，工伤打了勾，社保没有打勾，也要筛选出来
-- 发布时间：2009/12/4 23:07:00
--
其实你已经将窗口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 不要也可以........~
-- 发布时间：2009/12/4 23:22:00
--
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
-- 发布时间：2009/12/4 23:33:00
--
我要的是这样的筛选：1、[年龄]、[社保]、[工伤]列既可独立筛选，又可组合筛选。年龄不是25-32，而是在文本框中自由给定；2、勾选[社保]列，那么筛选出全部已勾显的[社保]列（不管[工伤]列是否勾选）反之也是。3、如果[社保]列和[工伤]列都够选，那么筛选出都够选的记录。
[此贴子已经被作者于2009-12-4 23:35:24编辑过]