Combo Box Access 2007 VBA代码

Question

如何使用记录集显示组合框？以下给出的代码片段都不起作用。 rowsource和additem都没有工作。不允许在设计视图属性中编辑rowsource属性，因此我需要手动编写它。

Set MyRec = MyDB.OpenRecordset("SELECT * From studentInformation")

Do While Not MyRec.EOF
   comboBox.RowSource = MyRec![studentName]  'This code is not displaying anything...
   MyRec.MoveNext 
Loop

或者此代码不显示任何内容

Set MyDB = CurrentDb

Set MyRec = MyDB.OpenRecordset("SELECT * From studentInformation")

Do While Not MyRec.EOF
  tQue = MyRec![studentName]
  Combo7.AddItem(tQue)
  MyRec.MoveNext
Loop

Answer 1

如果你在VB6中试试..试试这个

Do While Not MyRec.EOF      
  Combo7.AddItem  MyRec.Fields.Item("studentName")
  MyRec.MoveNext
Loop