Buongiorno a tutti! Dopo qualche anno di inattività ho ripreso a sviluppare in gambas.
Mi ritrovo però con la guida piuttosto scarna, visto che spesso quando cerco qualcosa mi dice che la pagina non esiste.
Il mio problema è quello di compilare una griglia con un result di DB con il codice sottostante.
Come potete notare, la riga incriminata mi da sempre errore, e non trovo la sintassi corretta per il comando.
Mi potreste aiutare? Grazie!
With dati
lista_clienti.Clear 'azzera la griglia
'--------------------------------------------COMPILA I TITOLI DELLA GRIGLIA---------
campi = .Fields.Count
lista_clienti.Columns.Count = campi 'colonne della griglia
If .Index = 0 Then 'scrive i titoli colonna
For campo = 0 To campi - 1
lista_clienti.Columns[campo].Text = .Fields[campo].name
lista_clienti.Columns[campo].Alignment = Align.Center
Next
Endif
'--------------------------------------------POPOLA LA GRIGLIA----------------------
campo = 0
lista_clienti.Rows.Count = .Count 'calcola le righe griglia
.MoveFirst
For Each dati 'cicla nei records
For campo = 0 To campi - 1 'cicla nei campi
lista_clienti[.Index, campo].Text = !Fields[campo] 'questo non funziona!!!!!!!!
Next
Next
End With
Alla fine ho risolto modificando la sintassi, sostituendo il "!" con ["nomecampo"]. In questo modo:
For Each dati 'cicla nei records
'numrec = .Index
For campo = 0 To campi - 1 'cicla nei campi
If .Index = 0 Then
lista_clienti.Columns[campo].Text = .Fields[campo].name
lista_clienti.Columns[campo].Alignment = Align.Center
Endif
lista_clienti[.Index, campo].Text = .[.Fields[campo].name]
Next
Next
Ho anche compattato il codice mettendo nello stesso ciclo FOR NEXT la compilazione dei titoli colonna al primo record.