可重复多选的组合框

Trynew

游客，如果您要查看本帖隐藏内容请回复

通过以下代码（插入组合框的更新后事件中），可以实现用组合框重复多选，也可以手工修改录入内容：
Private Sub Combo0_AfterUpdate()
Dim i As Integer, strList As String
    With Combo0
        For i = 1 To .ListCount
            strList = IIf(Nz(strList) = "", "", strList & ";") & .ItemData(i)
        Next
        If Nz(.Text) <> "" Then
            If InStr(1, .Tag, .Text) = 0 And InStr(1, strList, .Text) > 0 Then
                .Value = IIf(Nz(.Tag) = "", "", .Tag & "、") & .Text
            End If
            .Tag = .Text
        Else
            .Tag = ""
        End If
    End With
End Sub

goto2008

太有创意了,学习

t小宝

非常巧妙，学习了[:50]

Trynew

经测试，可以省掉其中4行：
Private Sub Combo0_AfterUpdate()
Dim i As Integer, strList As String
    With Combo0
        For i = 1 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
        .Tag = .Text
    End With
End Sub

rjacky

好东西[:50]

fswxs

trynew站长，很久不见，终于又尝试新的了[:34]

5988143

精品不断![:50]

tmtony

不服不行!!

Trynew

进一步，可以把此功能做成通用函数，在公共模块中建立函数：

Public Function MultComb()
Dim i As Integer, strList As String
    With Screen.ActiveControl
        For i = 1 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
        .Tag = .Text
    End With
End Function

然后在窗体的组合框更新后事件中输入函数：=MultComb()
现在你的组合框就是有多选功能的“超级”组合框了。

wang1950317

真好啊！提一个小问题：当我们不幸又误选了已经选过的条目，其他选中的消逝了，只保留了最后选中的。能否在误点击了已选项没有反应就好了。谢谢！