Re: Référence d'objet et dictionnaires...

[olivier corouge <olivier at realsoftware dot fr>]

Powel wrote:

> Ex :
>
>   Dim selection As RecordSet
>   Dim n As Integer
>   Dim sites As new Dictionary
>   Dim site As new Dictionary
>
>   selection=App.db_select(false, "Select id, noms, base From sites Where 
> is_rss=1 and base='"+app.db_tag+"'", "Selectionne la liste des sites", 
> true)
>   n=0
>
>   While not selection.EOF
>     n=n+1
>
>    site.Value("id")=selection.Field("id").Value
>     
> site.value("nom")=selection.Field("noms").Value.DefineEncoding(Encodings.UTF8) 
>
>     site.Value("base")=selection.Field("base").Value
>
>     sites.value(n)=site
>
>     selection.MoveNext
>   Wend
modifie :
        Dim site As new Dictionary
en
        Dim site As Dictionary



et ajoute entre le while et n = n + 1
        site = new Dictionnary


Les instances de class sont toujours passées par référence.

Cordialement,
Olivier Corouge



--
Olivier Corouge
Support Technique en Français
olivier at realsoftware dot fr - http://www.realsoftware.fr