タイトル : コンボボックスの内容をフレキシブルグリッドに表示させるには? 投稿日 : 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つです) お手数お掛けしますがよろしくお願いします。 |