多重选择列表框示例

时　间:2004-04-11 00:00:00
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:利用列表框的多重选择来输出选定结果

正　文:

示例代码：

Private Sub cmdSome_Click()
    Dim strWhere As String, varItem As Variant
    '如果没有选择项目,则退出程序
    If Me!lstBname.ItemsSelected.Count = 0 Then Exit Sub
    '选择项目
    For Each varItem In Me!lstBname.ItemsSelected
        strWhere = strWhere & Chr$(34) & Me!lstBname.Column(0, varItem) & Chr$(34) & ","
    Next varItem
        strWhere = Left$(strWhere, Len(strWhere) - 1)
    gstrWhereBook = "[ISBNNumber] IN (" & strWhere & ")"
    '在所打开的窗体中应用筛选条件
    DoCmd.OpenForm FormName:="frmBooks", WhereCondition:=gstrWhereBook
End Sub

示例下载：

点击浏览该文件