Question

菜鸟求帮助：VBA中，ComboBox 下拉列表里的内容怎么写？

如图：combobox 下拉列表框里没有可选项？要写什么代码？

Answer 1

利用数据库的记录，返回所有不重复的部门名称，然后一一添加到组合框里。
我不知道你这个是用什么连接数据库的，假设用Adodc控件，
Adodc1.RecordSource = "Select DISTINCT 部门 From 数据表名称"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("部门")
Adodc1.Recordset.MoveNext
Loop
Combo1.Text = Combo1.List(0)
这样就添加好了！
如果采用AdodB对象，那么把Adodc1改成Rst对象。

追问

这个好，正确，

Answer 2

ComboBox1.addlist 内容1
ComboBox1.addlist 内容2
.
.
.

追问

直接写在这里面吗？Private Sub ComboBox1_Change()

追答

不是
写在 点击/选中 的 ComboBox1 触发 宏 里面

ComboBox1_Click
上面写错了 应该是
ComboBox1.AddItem 内容1
ComboBox1.AddItem 内容2
.
.

追问

不好意思，麻烦你了，是这样写吗

追答