主题：[求助] 筛选命令 高手进来看看啊

RT 我有一个客户信息表 做了个查找窗口 要求是可以按照客户名称列和联系人列里面的关键字进行筛选，代码如下，

Dim khm As WinForm.TextBox = e.Form.Controls("按客户名查找")
Dim lxr As WinForm.TextBox = e.Form.Controls("按联系人查找")

Tables("客户信息表").Filter="客户名称 Like '*" & khm.Text & "*' and 联系人 like '*" & lxr.Text & "*'"

 

以上代码可以用 但是有一个问题，就是我这个行一共有十几列，如果这十几列的单元格里面都有内容 那么以上代码就可以正常找到我要的那个行，如果我这个客户列 只录入了 客户名和联系人，其他如联系电话等 暂未录入，那么以上代码就不能正常找到这个只录入了部分的行，请问这个要怎么解决？忘高手多多指教！

 

附件是我弄的这个项目 请高手帮看下！

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

点击浏览该文件:销售管理系统.rar

同志哥，例子都上了，客户信息表就没时间把列添加齐全，多少弄几行数据，才好测试，既然想解决问题，就要提供必要的条件。

多谢楼上帮顶

最下面的两个文本框，不需要，可以按任意条件查询。

你的录入框大多是文本框，不是组合框，只有人工输入，不能下拉选择，很不方便。

Tables("客户信息表").Filter="客户名称 Like '*" & khm.Text & "*' and 联系人 like '*" & lxr.Text & "*'"

 

改为：

 

Tables("客户信息表").Filter="客户名称 Like '*" & khm.Text & "*' Or 联系人 like '*" & lxr.Text & "*'"

 

 

要分清楚“与”和“或”的不同

那你好好看看这个吧：

http://www.foxtable.com/help/topics/1058.htm

 

参考帮助, http://www.foxtable.com/help/topics/1058.htm  

客户信息表，没有不重复的客户编号，客户名称是客户自己起的，你不能强求，如何确定客户信息的唯一性？

找到原因了，筛选条件可以为空 但是其所对应的值不能为空，就是说客户名和联系人行不能为空 我把这两项都填写上 随意输入一个筛选条件 可以运行了 感谢所有回复的朋友！