[ツリー表示へ] [ワード検索] [Home]
タイトル ： VB6での構造体を使った処理について 投稿日 ： 2008/02/20(Wed) 14:57 投稿者 ： shima
| データベースの値を上から順に格納していくために構造体を利用し、 下のソースを作成し、実行しましたが、 処理が失敗します。構造体の書き方は、これであっていますでしょうか？ おかしいところがなければ、ループの中の処理が間違っていると思うので まずは、構造体があっているかのアドバイスをいただけないでしょうか。 よろしくお願いいたします。 Private Type testtype ID As String ID2 As String End Type Private test() As testtype Private counter As Integer ------------------------------------------------------ Private Function ・・・・・・・・ redim test(0) as testtype counter = 0 Do While (DBがEOFになったら抜ける) test(counter).id = "コード１" test(counter).id2 = "コード２" counter = counter + 1 ReDim Preserve test(counter) 次のデータへ移動する Loop End Function |
をクリックするとツリー全体を一括表示します） - VB6での構造体を使った処理について - shima 08/02/20-14:57No.11476