解决多选函数前面总是出现标签内容的问题:
原来的函数代码如下
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,"") = ""
问题迎刃而解!!!
每天进步一点,良心好受一点!
Access软件网交流QQ群(群号:198465573) |
|