wie object ovn object (class einer class) zurückgeben?

von M. Stock » Samstag, 11. Oktober 2003



hallo alle...
ich möchte eine class haben, die ein array enthält, in dem weitere classes
sind.
also beispiel (stark gekürzt):

class clRubrics
private iID, sName
function ID : ID = iID : end function
function FillFromDatabase( resultSet ) : iID = resultSet("ID") : end
function
end class

class clLinks
private arrRubrics
function fillRubrics( resultSet )
Set arrRubrics(UBound) = new clRubrics
arrRubrics(UBound).fillFromDatabase( resultSet )
end function

--- unklar: -->
function getRubric( iValue )
getRubric = arrRubrics( iValue )
end function

end class



Dim arrayAllComanies
while not(SQLresult.EOF)
...
arrayAllComanies(UBound(arrayAllComanies)) = new clLinks
arrayAllComanies(UBound(arrayAllComanies)).fillRubrics(SQLresult)
wend

------>
das funzt so weit ohne probs, jetzt folgendes problem:
ich möchte auf die ID des customers folgendermassen zugreifen:

Dim a
a = arrayAllComanies(25).getRubric(4).ID

Da meldet er immer: "Object doesn't support this property or method"
Wie kann ich denn auf die "subClass" direkt zugreifen?

Hoffe, Ihr könnt helfen, danke
Michael





If you have any questions, you can contact us: admin#mofeel.net     Spam Report