0

如何使用记录集显示组合框?下面给出的代码段都不起作用。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
4

1 回答 1

0

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

Do While Not MyRec.EOF      
  Combo7.AddItem  MyRec.Fields.Item("studentName")
  MyRec.MoveNext
Loop
于 2013-06-17T07:57:43.243 回答