tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル コンボボックスの内容をフレキシブルグリッドに表示させるには?
投稿日: 2008/09/21(Sun) 17:37
投稿者vbnew
初めましてよろしくお願いします。
開発環境はVB6です。

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

Set session = CreateObject("OracleInProcServer.XOraSession")
Set Database = session.DbOpenDatabase("orcl", "yamato" & "/" & "kouei", 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つです)

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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。