窗口界面设计如下，实现条件查询功能
此主题相关图片如下：pic0001.jpg
afterload 事件代码如下：
以下内容为程序代码:
1 Dim cc As WinForm.ComboBox = e.Form.Controls("车厂")
2 cc.ComboList = DataTables("车型资料表").GetComboListString("车厂")
3
4 Tables("车型资料表").Filter = ""
查询 click事件代码如下:
以下内容为程序代码:
1 Dim cc As WinForm.ComboBox = e.Form.Controls("车厂")
2 Dim cx As WinForm.ComboBox = e.Form.Controls("车型")
3 Dim pl As WinForm.TextBox = e.Form.Controls("排量")
4 Dim nf As WinForm.TextBox = e.Form.Controls("年份")
5
6 Tables("车型资料表").Filter="车厂 = '" & cc.Text & "' and 车型 = '" & cx.Text & "' and 排量 like '*" & pl.Text & "*' and 适用年份 like '*" & nf.Text & "*'"
问题：当【排量】【适用年份】对应的文本列的内容为空值时，搜索到的内容为空白，只有当该两列同时填充数值后，才能实现查询功能到对应的数据列，如图
此主题相关图片如下：pic0002.jpg
此主题相关图片如下：pic0003.jpg
此主题相关图片如下：pic0004.jpg
[此贴子已经被作者于2014-12-18 8:54:41编辑过]
加好友 
发短信
Post By：2014/12/17 22:22:00 [只看该作者]
