Buon giorno a tutti, io ho lo stesso problema di tornu posto la sezione del mio listato dove non riesco applicare i suggerimenti della discussione.
uso gambas2 2.0.0 in mandriva2008
ps: il campo interessato Listimp1 nel database e configurato float(6,2)
DIM f AS ResultField
DIM c AS Integer
faResult = MGlobal.db.Exec("SELECT cdart, anart.descrizione, giacenza,listimp1, ragsoc, scaffale, piano, anart.cdfor, ean, id_cdart, costoult, note, anart.id_catm, descatm, anart.id_um, cdum, anart.id_iva, percent, desciva, ricauto, tipoart, scortamin, risco1, risco2, risco3, esiniz, carichi, scarichi, resifor, valinizia, valcarico, valresifor, dtucarico, valesist, cmp FROM anart, anafor, unmisura, tabiva, catmerci WHERE ragsoc = '" & CmbFor.Text & "' AND anart.cdfor = anafor.cdfor AND anart.id_um = unmisura.id_um AND anart.id_iva = tabiva.id_iva AND anart.id_catm = catmerci.id_catm")
' Costruzione tabella Ricerca Articoli (Intestazione Colonne,Larghezza,Allineamento ecc..)
CvwFindArt.Clear
CvwFindArt.Columns.Count = faResult.Fields.Count
FOR c = 0 TO faResult.Fields.Count - 1
f = faResult.Fields[c]
CvwFindArt.Columns.Count = 7
CvwFindArt.Columns.Sort = 1
CvwFindArt.Columns[0].Width = 120
CvwFindArt.Columns[0].Text = "CODICE"
CvwFindArt.Columns[1].Width = 320
CvwFindArt.Columns[1].Text = "DESCRIZIONE"
CvwFindArt.Columns[2].Width = 90
CvwFindArt.Columns[2].Text = "GIACENZA"
CvwFindArt.Columns[3].Width = 90
CvwFindArt.Columns[3].text = "LISTINO"
CvwFindArt.Columns[4].Width = 200
CvwFindArt.Columns[4].Text = "FORNITORE"
CvwFindArt.Columns[5].Width = 90
CvwFindArt.Columns[5].Text = "SCAFFALE"
CvwFindArt.Columns[6].Width = 90
CvwFindArt.Columns[6].Text = "PIANO"
NEXT
' Fill the ColumnView with the table data
FOR EACH faResult
' Create a new row and fill the first column
CvwFindArt.Add(faResult.Index, faResult[0])
' Fill the rest of the columns
FOR c = 1 TO faResult.Fields.Count - 1
CvwFindArt[faResult.Index][c] = faResult[c]
NEXT
NEXT
