使用多选列表框作为查询参数

时　间:2008-10-26 19:29:21
作　者:   ID：869  城市：邵阳
摘　要:我想通过ListBox控件选定的项目查询作为参数,如何做到这一点？
正　文:

（ Q ）我想通过ListBox控件选定的项目查询作为参数,如何做到这一点？

******************** Code Start ************************
Dim frm As Form, ctl As Control
Dim varItem As Variant
Dim strSQL As String
    Set frm = Form!frmMyForm
    Set ctl = frm!lbMultiSelectListbox
    strSQL = "Select * from Employees where [EmpID]="
    'Assuming long [EmpID] is the bound field in lb
    'enumerate selected items and
    'concatenate to strSQL
    For Each varItem In ctl.ItemsSelected
        strSQL = strSQL & ctl.ItemData(varItem) & " or [EmpID]="
    Next varItem

    'Trim the end of strSQL
    strSQL=left$(strSQL,len(strSQL)-12))
'******************** Code end ************************