在看实例学VFP：将查询结果输出为表或文本文件以及之前的几个关于select语句应用的例子中，组合框控件Combo1的数据方面的属性我们是这样设置的：RowSourceType属性值设置为“1-值”，RowSource属性值设置为“部门,性别,学历”，即在设计时已经将组合框控件的数据源固定了。但这种处理方式在有的情况下是不合理的，比如本文要做这样一个例子：希望在运行时可以在组合框控件里选择“部门”，按“部门”来查询。我们已经知道了“人员信息表”中目前有5条记录，其中有3个人事部的和2个企划部的。如果按以前的处理方式，我们可以把组合框的RowSourceType属性值设置为“1-值”，RowSource属性值设置为“人事部,企划部”。但假设这个公司以后或者增加了一些部门，或者砍掉了一些部门，而组合框控件的RowSource属性值已经固定了，运行起来就会有问题，可能就需要重新修改源码。所以在实际运用的时候，这种情况可以把组合框控件的RowSourceType属性值设置为“2-别名”，然后把需要在组合框控件中显示的项目用select语句从表中查询出来生成一个table或cursor，动态地给组合框控件的RowSource属性赋值，这样就可以解决刚才所说的问题。但这里还有一个小问题，对“人员信息表”的“部门”字段查询出来的结果会有3个人事部的和2个企划部，即在查询结果中存在重复的记录，如果直接做为数据源赋给组合框控件，则在运行时用鼠标展开组合框控件时是下面的这个样子：

看出问题了吗？需要把重复的记录过滤掉。要做的很简单，在select语句中加上distinct关键字就可以过滤掉重复记录。

关于select语句请参考：select SQL 命令 或sql语言教程。本例应用到了数据环境，并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源，关于该数据库的情况已经在看实例学VFP：示例数据库一文中给出，运行界面见本文末尾。

制作步骤：

一、新建表单，将其caption属性值设置为“编程入门网-去除查询结果中的重复记录”，AutoCenter属性值设置为.t.，width属性值设置为375，height属性值设置为250，并将表单保存为“去除查询结果中的重复记录.scx”。

二、向表单上添加一个label控件、一个组合框控件及一个命令按钮控件，将这三个控件排成一行，并分别设置它们的属性：

1、label控件：caption属性值设置为“查询条件”。

2、组合框控件Combo1：RowSourceType属性值设置为“2-别名”。

3.命令按钮控件command1：caption属性值设置为“查询”。

三、右击表单空白处，选“数据环境”命令，将“人员信息表”添加到数据环境中。在“数据环境设计器”中拖动“人员信息表”的标题栏到表单上，自动生成一个表格控件。为了书写代码的方便，我们把这个表格控件的name属性值修改为“grid1”。

四、适当调整各控件在表单上的位置，调整后的表单设计器如下图所示：

五、添加事件代码：

1.表单的init事件：

select distinct 部门 from 人员信息表 into cursor lsb &&利用Distinct关键字去除重复记录
thisform.combo1.rowsource="lsb" &&为组合框赋数据源

2.组合框控件Combo1的InteractiveChange事件：thisform.command1.click

3.“查询”按钮command1的click事件：

select * from 人员信息表 where 部门= alltrim(thisform.combo1.displayvalue);
 into cursor lsts     
thisform.grid1.recordsource="lsts" &&为表格赋数据源
thisform.refresh

六、运行“去除查询结果中的重复记录.scx”，界面见下图：

参考资料:

vfp基础教程：http://bianceng.cn/vfpjc/index0.htm

vfp初级教程：http://bianceng.cn/cc/index.htm

vfp中级教程：http://bianceng.cn/mcc/mcc.htm

vfp高级教程：http://bianceng.cn/hcc/hcc.htm

VFP网络开发：http://bianceng.cn/VFPwz/vfpwlkf.htm

vfp调用api函数：http://bianceng.cn/VFPwz/vfpapi.htm

VFP报表打印：http://bianceng.cn/VFPwz/vfpreport.htm

VFP常用技术：http://bianceng.cn/VFPwz/vfpcyjs.htm

VFP经验汇总：http://bianceng.cn/VFPwz/vfpjyhz.htm

VFP控件使用：http://bianceng.cn/VFPwz/vfpkjsy.htm

VFP数据处.：http://bianceng.cn/VFPwz/vfpsjcl.htm

本例代码在Win2003+VFP6.0环境下调试通过。

查看全套“菜鸟也学VFP”教程