解决多选函数前面总是出现标签内容的问题

来源:www.accessoft.com 点击数:3030 　 | 收藏 | 复制

时　间:2018-07-24 15:14:21
作　者:祝康胜 ID：48957 城市：昆山
摘　要:解决多选函数前面总是出现标签内容的问题
正　文:

解决多选函数前面总是出现标签内容的问题：

原来的函数代码如下
Public Function MultComb()
    Dim i As Integer, strList As String
    With Screen.ActiveControl
        If Len(Nz(.Value)) = 0 Then
             .Tag = ""
        Else
            If InStr(1, .Tag, "、" & .Value) > 0 Then
              .Tag = Replace(.Tag, "、" & .Value, "")
            End If
            If InStr(1, .Tag, .Value) > 0 Then
                .Tag = Replace(.Tag, .Value, "")
            End If
            .Tag = .Tag & "、" & .Value
            If Left$(.Tag, 1) = "、" Then
                .Tag = Mid$(.Tag, 2)
            End If
            .Value = .Tag
        End If
    End With
End Function

实际在使用的过程中总是需要字符前面出现“<quiered><length20>、”这个标签内容。反复查看函数，最终发现问题出在这个代码：
       If Len(Nz(.Value)) = 0 Then
             .Tag = ""
将Len(Nz(.Value)) = 0直接改成Nz(.Value,"") = ""
问题迎刃而解！！！

每天进步一点，良心好受一点 [太开心]