可重复多选的组合框

huangqinyong

thanks

zhaofangyuan

好贴,向您学习!

Trynew

问：当我们不幸又误选了已经选过的条目，其他选中的消逝了，只保留了最后选中的。能否在误点击了已选项没有反应就好了
答：加上一个判断即可，见下面程序。不过这时从多选变为其中一个选项就要先清空内容才行。
Private Sub Combo0_AfterUpdate()
Dim i As Integer, strList As String
    With Combo0
MsgBox InStr(1, .Tag, .Text)
        For i = 0 To .ListCount
            strList = IIf(Nz(strList) = "", "", strList & ";") & .ItemData(i)
        Next
        If InStr(1, .Tag, .Text) = 0 And InStr(1, strList, .Text) > 0 Then
            .Value = IIf(Nz(.Tag) = "", "", .Tag & "、") & .Text
        End If
'加上判断已选及在列表内则内容不变即可
        If InStr(1, .Tag, .Text) > 0 And InStr(1, strList, .Text) > 0 Then
            .Value = IIf(Nz(.Text) = "", "", .Tag)
        End If
        .Tag = .Text
    End With
End Sub

panjianhui

如果利用这个组合框作为查询的参数，如何设计查询呢？

wang1950317

学习！[:50] [:50]

Trynew

多选组合框作为查询的参数：

        用： "select * from tem where instr(1,'" & Combo0 & "',[字段2])>0"
也可以用split函数拆分后用or条件来查询，速度应该快点。
范例代码如下：
Private Sub 查询_Click()
    If Nz(Combo0, "") = "" Then
        Me.Child5.Form.RecordSource = "select * from tem"
    Else
        Me.Child5.Form.RecordSource = "select * from tem where instr(1,'" & Combo0 & "',[字段2])>0"
    End If
    Me.Child5.Form.Requery
End Sub

wang1950317

在大师们的手里是想怎么弄就怎么弄啊，佩服！不过还有一个小疑问：当我们在组合框中选中某项或某几项按查询，显示是正常的，但清除组合框内容后再重选，它就会将上一次选取的项也显示出来了。必须清除组合框内容后按一下[查询]，再选才能正确显示。

Trynew

清除组合框内容后并未触发更新后事件，你把更新后事件（Private Sub Combo0_AfterUpdate()
）改为更改事件（Private Sub Combo0_Change()）可以解决你这个问题。
虽然放在更改事件会有一点问题，如执行太频繁（自行输入内容时），但经过比较效果还是比放在更新后事件好些。
其实大家的一些提问和建议，就是我们灵感的源泉及动力，也多谢你的帖子：）

wang1950317

啊啊！Trynew老师太客气啦！只要不嫌我等无知太烦就好。谢谢你的耐心！谢谢！

tmtony

越来越精彩