tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルコンボボックスの内容をフレキシブルグリッドに表示させるには?
記事No13051
投稿日: 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つです)

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

[ツリー表示へ]
タイトルRe: コンボボックスの内容をフレキシブルグリッドに表示させるには?
記事No13053
投稿日: 2008/09/22(Mon) 19:02
投稿者しんご
すみません。
フレキシブルグリッドの記述がどこにもないのですが・・・
これではアドバイスできません。

> 開発環境はVB6です。

とありますが、もう少し詳細に記述願います。
OS、OSのSPVer.、VB6のSPVer.などなど。

あとフレキシブルグリッドってGrapeCity(旧文化オリエント、BOC)製ですか?
グリッドのバージョンはいくつですか?

[ツリー表示へ]