タイトル | : VB6での構造体を使った処理について |
記事No | : 11476 |
投稿日 | : 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 = "コード1" test(counter).id2 = "コード2"
counter = counter + 1
ReDim Preserve test(counter)
次のデータへ移動する
Loop
End Function
|