tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルVB6での構造体を使った処理について
記事No11476
投稿日: 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

[ツリー表示へ]
タイトルRe: VB6での構造体を使った処理について
記事No11487
投稿日: 2008/02/20(Wed) 16:33
投稿者花ちゃん
> 処理が失敗します。
では、解らないかと、エラーがでるのか? 値が格納できないのか?
どこが、どのように失敗するかを書かないとレスがつきませんよ。
データの件数がどれくらいなのかも見ている人には解らないし。

(他人に物事を伝える時は、文書に5W1Hを含めるように書かないと)

[ツリー表示へ]