先判断查询条件是否为空,不为空则加条件
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编辑过]
加好友 
发短信
Post By：2015/5/26 17:04:00 [显示全部帖子]
