运行时重新设置列表框的数据源

时　间:2008-01-11 10:08:33
作　者:zoutians   ID：995  城市：自贡
摘　要:本例的关键是使用好列表框的RowSource 属性，注意可以是表名、查询名、任何合法的SELECT语句。

正　文:

有一销售管理系统，需要按关键字查询客户，查询窗体如下：

查询要求是：在文本框中输入要查询客户的关键字，点击查询按钮后，在下面的列表框中显示出含有此关键字的客户。比如输入“张”，列表框输出所有含“张”字的客户。

这一功能是如何实现的呢？对于有一定经验的开发者来说，是很简单的事，这里只是对初学者作一介绍。列表框有一属性：RowSource ，含义是数据原，可以是表名、查询名、任何合法的Select语句。这里使用的是Select语句："Select 客户编号, 客户名称 FROM Customers Where 客户名称 LIKE '" & StrKH & "'"，其中Customers为客户信息表。

按钮的单击事件如下：
Private Sub Command1_Click()
    If IsNull(Me.KeyKH) Then
        MsgBox "请输入客户名称的关键词！"
    Else
        Dim StrKH As String
        StrKH = "*" & Me.KeyKH & "*"
        Me.List1.RowSource = "Select 客户编号, 客户名称 FROM Customers Where 客户名称 LIKE '" & StrKH & "'"
    End If
End Sub

本例的关键是使用好列表框的RowSource 属性，注意可以是表名、查询名、任何合法的Select语句。