可重复多选的组合框

Trynew · 发表于 2008-6-6 16:14:06

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

通过以下代码（插入组合框的更新后事件中），可以实现用组合框重复多选，也可以手工修改录入内容：
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 · 发表于 2008-6-7 01:02:51

太有创意了,学习

zzyzzg · 发表于 2016-1-22 18:51:16

www.office-cn.net

tang211 · 发表于 2016-1-21 15:05:46

tang211 发表于 2016-1-21 15:04
密码呢！

为啥我要密码解压的呀

tang211 · 发表于 2016-1-21 15:04:33

密码呢！

tang211 · 发表于 2016-1-21 11:16:06

学习学习！！！

slyz974 · 发表于 2016-1-5 16:25:43

谢谢分享

goldpig2015 · 发表于 2015-11-22 21:30:30

很好很强大

Alashome · 发表于 2015-11-22 10:55:48

good

hunrybecky · 发表于 2015-7-25 00:02:32

正是需要的

liumporite · 发表于 2015-4-26 12:14:51

什么玩意儿看看

明镜 · 发表于 2015-3-25 15:43:26

学习一下学习一下

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 可重复多选的组合框

本帖子中包含更多资源

评分

群介绍
主题无相 (随机显示版	同地区群块其他地区)