[VB.NET] - Ciclo for each su textbox

[Veronica80]

Ciao! Sto diventando scema per sta cosa! xD

Io con VB6 quando dovevo fare un ciclo per popolare tutte le textBox di un form facevo:

dim controllo as control
for each controllo in mioForm.controls
if typeof controllo is textbox then
controllo.text=rsrecordset(controllo.name)
next

dove rsRecordset era una variabile record e dove i nomi delle textbox corrispondevano ai campi del record...

ora con vb.net mi son arenata in sta cosa


ho provato con:

Dim controllo As Control

        For Each controllo In Me.Controls
            If controllo.GetType = TextBox Then
                controllo.Text = rsRecordset(controllo.Name)
            End If
        Next

ma mi da errore:
Errore 2 'TextBox' è un tipo e non può essere utilizzato come espressione.

chi mi da una manina?

grazie!!!

[xegallo]

            for (int i = 0; i < this.Controls.Count - 1; i++) 
            {
                if (this.Controls[i] is TextBox) 
                {
                    this.Controls[i].Text = "";
                }
            }

questo è c#

vbnet dovrebbe essere molto simile

prova ad usare IS

If controllo.GetType = TextBox Then
diventa

If controllo IS TextBox Then

[cassano]

se non ricordo male si usava type of.

[gibra]

Prova così

        
Dim Controllo As Control
        For Each Controllo In Me.Controls
            If TypeOf Controllo Is TextBox Then
                Controllo.Text = ""
            End If
        Next

P.S. per xegallo

Facendo come dici tu:

for (int i = 0; i < this.Controls.Count - 1; i++)

si azzerano tutti i textbox meno il primo.

Così invece si azzerano tutti:

for (int i = 0; i <= this.Controls.Count - 1; i++)

Ciao

[elilo]

se l'errore è che non ti funziona il controllo se è una TextBox devi scriverlo così

        Dim controllo As Control

        For Each controllo In Me.Controls
            If controllo.GetType = "System.Windows.Forms.TextBox" Then
                ...
            End If
        Next

fammi sapere ciao

[Veronica80]

ok! Con:

Dim Controllo As Control
        For Each Controllo In Me.Controls
            If TypeOf Controllo Is TextBox Then
                Controllo.Text = ""
            End If
        Next

Funziona!

Il problema è che io vorrei popolare tutte le textbox con i dati del db...

esempio la texbox chiamata "Nome" conterrà i dati del campo "Nome".

a tal proposito ho scritto:

 sql = "SELECT * FROM clienti WHERE ID=10"
        Dim cmd As New OleDbCommand(sql, Cn)
        Dim rsRecordset As OleDbDataReader = cmd.ExecuteReader
        Dim controllo As Control

        For Each controllo In Me.Controls
            If TypeOf controllo Is TextBox Then
                controllo.Text = rsRecordset.Item(controllo.Name)
            End If
        Next

sempre sottolineando che le textbox hanno lo stesso dome dei campi del recordset dovrebbe popolarli con i dati ma rimangono bianche xD

Facendo il debug con f8 ho notato che non fa tutti i cicli per ogni controllo nel form ma solo pochi...è possibile che avendo inserito le textBox in dei frame di gruppo non le veda nel form bensì nel frame?

[Cteniza]

Guarda questo mio post, spero ti aiuti.
http://community.visual-basic.it/luc.../26/17465.aspx

[Knightrider86]

Io farei cosi:

sql = "SELECT * FROM clienti WHERE ID=10"
Dim cmd As New OleDbCommand(sql, Cn)
cmd.connection.open
Dim rsRecordset As OleDbDataReader = cmd.ExecuteReader
rsRecordset.read 'NBevi essere sicura che il record esista, altrimenti exception
Dim controllo As Control

For Each controllo In Me.Controls
If TypeOf controllo Is TextBox Then
controllo.Text = rsRecordset(controllo.Name)
End If
Next

cmd.connection.close

La parte più importante che hai saltato, secondo me, è la chiamata al metodo read del datareader. Questo metodo carica i valori del record successivo, ma essendo la prima volta che lo chiami... sarà il primo record...