- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 条件筛选问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68873)
-- 发布时间：2015/5/26 16:52:00
-- 条件筛选问题
如上图，怎么实现选择了民族为汉族之后直接点查询就能出来所有汉族学生的信息，不用四项都选择才能点击查询？
Dim mz As WinForm.ComboBox = e.Form.Controls("民族")
Dim xb As WinForm.ComboBox = e.Form.Controls("性别")
Dim zzmm As WinForm.ComboBox = e.Form.Controls("政治面貌")
Dim hklx As WinForm.ComboBox = e.Form.Controls("户口类型")
Tables("学生基本信息表").filter="民族 =\'" & mz.Text & "\' and 性别 =\'" & xb.Text & "\' and 政治面貌 = \'" & zzmm.Text & "\' and 户口类型= \'" & hklx.Text & "\'"
此主题相关图片如下：条件筛选.jpg
此主题相关图片如下：条件筛选.jpg-- 发布时间：2015/5/26 16:55:00
--
参考帮助
-- 发布时间：2015/5/26 17:04:00
--
先判断查询条件是否为空,不为空则加条件
Dim mz As WinForm.ComboBox = e.Form.Controls("民族")
Dim xb As WinForm.ComboBox = e.Form.Controls("性别")
Dim zzmm As WinForm.ComboBox = e.Form.Controls("政治面貌")
Dim hklx As WinForm.ComboBox = e.Form.Controls("户口类型")
dim filter as string
filter=""
If mz <>"" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "[民族] =\'" & mz & "\'"
End If
If xb <>"" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "[性别] =\'" & xb & "\'"
End If
If zzmm<>"" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "[政治面貌] =\'" & zzmm & "\'"
End If
If hklx <>"" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "[户口类型] =\'" & hklx & "\'"
End If
Tables("学生基本信息表").filter=filter
[此贴子已经被作者于2015/5/26 17:04:28编辑过]