Question

VB中怎么将access数据表中的字段显示在combobox的下拉列表中？

我的这样为什么不行：
Private Sub Combo1_Click()
If Adodc1.Recordset.RecordCount > 0 Then '如果ADO对象的记录集大于0则执行
Adodc1.Recordset.MoveFirst '移动记录指针到首记录
For x = 1 To Adodc1.Recordset.RecordCount
'将“用户名”字段中所有数据添加到Combo1控件中
Combo1.AddItem Adodc1.Recordset.Fields("用户名").Value
Adodc1.Recordset.MoveNext '移动记录指针到下一条
Next x
End If
End Sub

Answer 1

确定“Combo1.AddItem Adodc1.Recordset.Fields("用户名").Value”中（“用户名”）是你表中的字段名吗？或许改为（0）试试，貌似在你的Combo1_Clik中没有连接数据源吧！在连接数据源后一定要刷新Adodc1.Refresh。还有你的combo1中最开始没有任何内容单击是无效的。没见过单击combo之后又改变自身的字段值！（呵呵这样写倒是是可以的）你还是把事件放到form_laod里试试吧。检查我提到的几点小问题，有时候是自己疏忽了而已……