组合框新示例-自动填充

kn1394

try

7777777

收下了学习学习
谢

yx880

yttjjtjyyyyyyyyyyyyyy

huangxiuwen

学习

tdhgj

good

micyuer

kankan

zczc123

顶下！！！！

popo559

谢谢分享！

ghfmac

看看！！！！！！！！！！！！！！！！！！！！！！！！！

youchytan

Public Function MultComb()
'本函数可放在窗体的组合框的更改事件属性中或在事件过程中调用
'本函数利用Screen.ActiveControl对象及对象的tag属性扩大其通用性，如有冲突，也可利用公共变量代替
Dim i As Integer, strList As String
    With Screen.ActiveControl
        '用";"作分隔符提取组合框选项列表，此项功能也可应用在其它判断是否在列表中的例程中
        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 = .Value
    End With
End Function