Che forte!!
gbx <tab>
risultato
With GridEdit1
.Expand = True
.Connection = Conn.CCon
.AutoDataType = True
.FieldKey = ["iddettaglio"]
.SetTitles([[0, "Id"], [1, "Riga"], [2, "Codice"], [3, "Descrizione"], [4, "Colore"], [6, "totale"], [5, "Prezzo"]])
.SetType([[[0, 1, 2, 3, 4, 5], Grid.Type.Field], [[6], Grid.Type.Formula]])
.SetFields([[0, "iddettaglio"], [1, "x"], [2, "codice"], [3, "descrizione"], [4, "colore"], [5, "prezzounit"]])
.SetFormulas([[6, "=C[5]+C[5]"]])
.SetWidths([[0, 40], [1, 40], [2, 80], [3, 300], [[4, 5, 6], 80]])
.SetFormats([[[5, 6], "$,0.00"]])
.SetDataType([[0, Grid.DataType.Serial]])
.SetAlignment([[[5, 6], Align.Right], [4, Align.Center]])
.TableName = "dettagli"
.LoadData("select * from dettagli ORDER BY x;")
.Columns["codice"].DefaultValue = "20"
.Columns["prezzounit"].DefaultValue = "0"
.FieldReordering = "x" ' campo numerico di riordine = float o decimal
.UpdateReording = False ' false non riordina e mette es. 10.5 , true riordina il campo FieldReordering
.AlwaysEditable = False ' sempre editabile
.KeyActivity = True ' attiva funzione key
.ReadOnly = False ' solo lettura
.AutoNew = True '
End With
fichissimo