realbasic-nug.it
[Top] [All Lists]

Re: Loop

To: REALbasic NUG Italian <realbasic-nug dot it at lists dot realsoftware dot com>
Subject: Re: Loop
From: Luca Infante <l dot infante at poc dot it>
Date: Fri, 10 Mar 2006 14:19:19 +0100
Delivered-to: realbasic-nug dot it at lists dot realsoftware dot com
References: <643D00A1-6B79-472D-8847-5CB43F7D1422 at libero dot it> <F904B9C2-B3E3-4E39-B630-ADFE6D3FFD5F at ticino dot com> <631899B5-C194-4362-93D6-AB832AA9E71D at sqlabs dot net> <2A286740-96F9-4F03-B334-34BC5E797883 at libero dot it> <8B06E08C-8DCE-42D3-9932-358D0A6FEC28 at libero dot it> <A7F6EF6C-98FF-4353-BD1C-D87D14A9F3BE at ticino dot com>
Per usare il metodo AddRow è comodo avere la ListBox2 vuota (dato che ti aggiunge una riga alla fine), se non lo è esegui:

ListBox2.DeleteAllRows

E poi eseguire il loop (grazie Marco per avermi corretto! Avevo proprio scritto senza pensarci molto).
Traducendo il tuo pseudo-code si avrebbe:

NumeroColonna = 0 // Numero di colonna (inizia da zero) in cui si trova il campo email

For i=0 to ListBox1.ListCount-1
        if campo <> "" then // Se il campo non è vuoto
                ListBox2.AddRow ListBox1.Cell(i, NumeroColonna)
        end if
Next

Matteo

Scusa Matteo il tuo messaggio è arrivato dopo la mia risposta.

Ciao Luca


<Prev in Thread] Current Thread [Next in Thread>