VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/10/25(Tue) 11:18
投稿者： るしぇ
Ｅメール：
ＵＲＬ：
タイトル： Re^2: Collectionで悩んでます

[クラスモジュール講座]
hhttp://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/index.html
まずはクラスとインスタンスについてのイメージを固めて下さい。

細かい事ですが、[VB6.0]において下記のような問題点があります。
hhttp://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200506/05060038.txt
変数宣言での New は使わないクセを付けておく方が良いです。

で、本題に入りますが、ループの内部でループが繰り返されるごとに
新しい C_MenuItem のインスタンス(実体)を生成して下さい。

    Dim tmpItem As C_MenuItem
    '明細の取得
    Set RS = DbCn.Execute("SELECT * FROM BT36 WHERE BT36F001 = " & RcNo)
    If RS.RecordCount > 0 Then
        Do Until RS.EOF
            Set tmpItem = New C_MenuItem ' ←ここ
            With tmpItem
                .PSC = RS!BT36F005 & ""
                If IsNull(RS!BT36F006) = False Then .Code = RS!BT36F006
                .Name = RS!BT36F023
                .Group = RS!BT36F026
            End With
            Detail.AddList tmpItem
            RS.MoveNext
        Loop
    End If

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -