コンボボックスの内容をフレキシブルグリッドに表示させるには?


VB初心  2008-09-19 04:14:17  No: 140468

初めましてよろしくお願いします。
開発環境はVB6です。

Private Sub Command1_Click()
sql = "SELECT TABLE_NAME FROM USER_TABLES"

Set session = CreateObject("OracleInProcServer.XOraSession")
Set Database = session.DbOpenDatabase("step", "tokyo" & "/" & "kanagawa", 0&)

Set dynaset = Database.dbcreatedynaset(sql, 0&)
If dynaset.BOF = True And dynaset.EOF = True And dynaset.RecordCount = 0 Then
MsgBox "NoData"
Else
i = 1
Do Until dynaset.EOF
If i > 1 Then
Combo1.AddItem CStr(dynaset![TABLE_NAME])
Else
End If
i = i + 1
dynaset.MoveNext
Loop
End If

End Sub

こんな感じでコンボボックスを作ったのですが、
ボックスのリストをクリックした時に、選択したリストの内容全てが
フレキシブルグリッドに上手く表示できません。(選択は1つです)

お手数お掛けしますがよろしくお願いします。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加