Access 2003中如何通过VBA为组合框添加空格实现选项缩进显示

嘿，我太懂你在Access 2003里碰到的这个问题了——直接给组合框选项加普通空格的话，Access会自动把开头的空格修剪掉，根本出不来你想要的分类+缩进子项的效果。不过别着急，有两个实用的小技巧能搞定这个事儿，我给你一步步说：

方法一：用非断空格替代普通空格（最可靠） #

普通空格会被Access自动修剪，但**非断空格（Non-breaking Space）**不会。在VBA里，你可以用Chr(160)来生成这个特殊空格字符，它就像一个不会被“吃掉”的空格，完美实现缩进效果。

给你举个完整的代码示例，替换成自己的组合框名字就行：

' 先清空组合框里的原有内容
Me.cboMyComboBox.Clear

' 添加分类标题
Me.cboMyComboBox.AddItem "Fruits"
' 添加缩进的子项，用两个Chr(160)实现缩进
Me.cboMyComboBox.AddItem Chr(160) & Chr(160) & "Orange"
Me.cboMyComboBox.AddItem Chr(160) & Chr(160) & "Apple"
Me.cboMyComboBox.AddItem Chr(160) & Chr(160) & "Melon"

' 第二个分类
Me.cboMyComboBox.AddItem "Drinks"
Me.cboMyComboBox.AddItem Chr(160) & Chr(160) & "Coffee"
Me.cboMyComboBox.AddItem Chr(160) & Chr(160) & "Milk"
Me.cboMyComboBox.AddItem Chr(160) & Chr(160) & "Water"

方法二：用制表符实现缩进（需注意字体） #

如果你觉得非断空格不够方便，也可以试试用制表符Chr(9)来做缩进，代码写法类似：

Me.cboMyComboBox.AddItem Chr(9) & "Orange"

不过要注意，这个方法只在组合框使用等宽字体（比如Courier New）时才能对齐整齐，要是用的是宋体这类非等宽字体，缩进的位置可能会歪歪扭扭的，所以更推荐第一个方法。

额外提醒：别让列宽截断内容 #

最后记得检查一下组合框的ColumnWidths属性，要是设置得太窄，缩进后的子项可能会被截断显示不全。你可以在设计视图里手动拉宽，或者用VBA设置：

' 设置列宽为200缇（Twips），数值可以根据你的需求调整
Me.cboMyComboBox.ColumnWidths = "200"

这样操作之后，组合框展开时就能完美显示你想要的分类+缩进子项的效果啦！

备注：内容来源于stack exchange，提问作者Ton