0

レコードセットを使用してコンボボックスを表示するにはどうすればよいですか? 以下のコードはどちらも機能していません。rowsource も additem も機能していません。デザイン ビュー プロパティで行ソース プロパティを編集することは許可されていないため、手動でコーディングする必要があります。

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 に答える