Access窗体中的组合框多选代码示例

泡小果 · 发表于 2024-3-5 20:19:47

Access窗体的组合框多选代码如下（在组合框更新后事件中使用）：

Public Function zuhekuangduoxuan(组合框名称)
If Len(Nz(组合框名称.Value)) = 0 Then
      组合框名称.Tag = ""
Else

      '当选择的数据在组合框中已经存在时（数据在开头），把已存在的数据替换成空字符串
         If InStr(1, 组合框名称.Tag, 组合框名称.Value) > 0 Then
            组合框名称.Tag = Replace(组合框名称.Tag, 组合框名称.Value, "")

         Else
            组合框名称.Tag = 组合框名称.Tag & "、" & 组合框名称.Value
            If Left$(组合框名称.Tag, 1) = "、" Then
                  组合框名称.Tag = Mid$(组合框名称.Tag, 2)
            End If
         End If

      '判断组合框里面没有两个、、
         If InStr(1, 组合框名称.Tag, "、、") > 0 Then
            组合框名称.Tag = Replace(组合框名称.Tag, "、、", "、")

         End If

      '判断组合框前面是否为、开头
         If Left$(组合框名称.Tag, 1) = "、" Then
                  组合框名称.Tag = Mid$(组合框名称.Tag, 2)
         End If

      '判断组合框最后有没有、
         If Right$(组合框名称.Tag, 1) = "、" Then
            组合框名称.Tag = Left(组合框名称.Tag, Len(组合框名称.Tag) - 1)
         End If

      组合框名称.Value = 组合框名称.Tag
End If
End Function