投稿日	： 2005/10/25(Tue) 09:20
投稿者	： はせ
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: Collectionで悩んでます

すいませんほぼオリジナルのソースを貼り付けました。
あれ？Detailクラスを引数にしてDetailクラスに放り込んでいる・・・
問題ありでしょうかね？



−−−−ソース−−−−−
’外部から引数としてResNoとDetail渡してDetailに結果を保存する

Friend Function GetDetailList(RcNo As Long, Detail As C_Detail) As Boolean
Dim tmpItem As New C_MenuItem
'Set tmpItem = New C_MenuItem

Detail.Reset    'Detail内のコレクションをリセットするメソッドの実行

'明細の取得
With tmpItem
Set RS = DbCn.Execute("SELECT * FROM BT36 WHERE BT36F001 = " & RcNo)
If RS.RecordCount > 0 Then

    Do Until RS.EOF
    
        .PSC = RS!BT36F005 & ""

        If IsNull(RS!BT36F006) = False Then .Code = RS!BT36F006
        .Name = RS!BT36F023
        .Group = RS!BT36F026

        Detail.AddList tmpItem
    RS.MoveNext
    Loop
End If
End With
End Function

−−−−以下Detailクラスです。
Private MenuList As Collection   '明細リスト用コレクション

Friend Sub AddList(MenuItem As C_MenuItem)

If MenuList.Count = 0 Then
    MenuList.Add MenuItem
    Else
    MenuList.Add MenuItem, , , 1
End If
'Debug.Print MenuList.Item(1).Name & "   " & MenuList.Item(2).Name
End Sub

★ - Collectionで悩んでます - はせ 10/25-00:24No.4735
• Re: Collectionで悩んでます - Renard 10/25-02:29 No.4736
  • 参照アドレスが同じなのでは？ - るしぇ 10/25-09:02 No.4738
    • Re: 参照アドレスが同じなのでは？ - はせ 10/25-09:27 No.4742
• Re: Collectionで悩んでます - はせ 10/25-09:20 No.4740
  • Re^2: Collectionで悩んでます - るしぇ 10/25-11:18 No.4743
    • Re^3: Collectionで悩んでます - はせ 10/28-22:59 No.4793