Creazione componente: gb.gridbox

[milio]

Che errore ti da?

[Golia]

Out of bouds

ti faccio vedere tutto il codice che forse sbaglio da qualche parte

Codice: [Seleziona]

[color=blue][font=Verdana]PUBLIC SUB _new()

Conn.connmydb()

    WITH GridEdit1
    .Expand = TRUE
    .Connection = Conn.$CCon
    .AutoDataType = TRUE
    .FieldKey = ["iddettaglio"]
    .Columns.Count = 10
    .TableName = "dettagli"
    .LoadData("select * from dettagli ORDER BY x")
'     .Formatting.Count = 1
    END WITH 



  WITH GridEdit1.Columns[0]
    .Hide = TRUE
    .Type = Grid.Type.Field
    .Field = "iddettaglio"
    .DataType = Grid.DataType.Serial
    .Text = "ID"
    .w = 40
  END WITH 

  WITH GridEdit1.Columns[1]
    .Hide = FALSE
    .Type = Grid.Type.Field
    .Field = "x"
    .Text = "riga"
    .w = 40    
  END WITH 

  WITH GridEdit1.Columns[2]
    .Hide = FALSE
    .Type = Grid.Type.Field
    .Field = "codice"
    .Text = "Codice"
    .DefaultValue = "cod20"
    .w = 80    
  END WITH 
  
  WITH GridEdit1.Columns[3]
    .Hide = FALSE
    .Type = Grid.Type.Field
    .Field = "descrizione"
    .Text = "Descrizione"
    .w = 300    
  END WITH   
  
  WITH GridEdit1.Columns[4]
    .Hide = FALSE
    .Type = Grid.Type.Field
     ' .DataType = ComboBox
    .Field = "colore"
    .Text = "Colore"
    .Box.ListCombo.Add(1, "gigi")
    .Alignment = 3
    .w = 80
  END WITH    

  WITH GridEdit1.Columns[5]
    .Hide = FALSE
    .Type = Grid.Type.Field 
    .DataType = Grid.DataType.Boolean
    .Field = "unit"
    .Text = "Check"
    .Box.ValueCheck = 1
    .Box.ValueUncheck = 0
    .DefaultValue = "0"
    .w = 40
  END WITH 

  WITH GridEdit1.Columns[6]
    .Hide = FALSE
    .Type = Grid.Type.Field
    .Field = "prezzounit"
    .Text = "Prezzo"
    .DefaultValue = "0"
    .Format = "$,0.00"
    .Alignment = 2
    .w = 80
  END WITH  
  
  WITH GridEdit1.Columns[7]
    .Hide = FALSE
    .Type = Grid.Type.Formula
    .Text = "Prezzo * 2"
    .Formula = "=C[6]+C[6]"
    .Format = "$,0.00"
    .Alignment = 2
    .w = 80
  END WITH    

  WITH GridEdit1.Columns[8]
    .Hide = FALSE
    .Type = Grid.Type.Formula
    .Text = "se 0"
    .Formula = "=SE(C[5]=0;C[7];0)"
    .ReadOnly = TRUE
    .Format = "$,0.00"
    .Alignment = 2
    .w = 80
  END WITH  
      
  WITH GridEdit1.Columns[9]
    .Hide = FALSE
    .Type = Grid.Type.Formula
    .Text = "se -1"
    .Formula = "=SE(C[5]=0;0;C[7])"
    .ReadOnly = TRUE
    .Format = "$,0.00"
    .Alignment = 2
    .w = 80  
    

  END WITH 

  WITH ME.GridEdit1.Columns[9].Formatting[0]
    .Comparison = "=C[5] = 0"
    .Formatting.BackColor = &HFF0000&
    .Formatting.ForeColor = &HFFFFFF&
    .Formatting.Text = "CARO"
    .Formatting.Alignement = Align.Center
  END WITH

    WITH GridEdit1
'     .SetHidden([0, 1])
    
    .FieldReordering = "x" ' campo numerico di riordine = float o decimal    
    .UpdateReording = TRUE ' false non riordina e mette es. 10.5 , true riordina il campo FieldReordering
    .AlwaysEditable = TRUE ' sempre editabile
    .KeyActivity = TRUE ' attiva funzione key
    .ReadOnly = FALSE ' solo lettura
    .AutoNew = TRUE ' 
    END WITH 

END[/font][/color]

[milio]

ti manca prima de settaggio del formatting ME.GridEdit1.Columns[9].Formatting.Count = 1

[Golia]

Grazie, ora funziona

[Golia]

Ciao Milio
Ho visto un aggiornamento oggi.
Novità?

[milio]

Aggiustamenti, ritocchi... Ritocchi e ancora aggiustamenti

ho cambiato il metodo GridBox.Reset(): prima mi faceva un 'Refresh' della griglia. Ora mi 'ripulisce' la griglia

ho aggiunto gli eventi ColumnClick(Column AS Integer) e ColumnRow(Column AS Integer) perche' ne avevo necessita' in un form....
Praticamente sono sole le 'copie' degli eventi gestiti da una semplice GridView... Mi serviva soprattutto l'evento ColumnClick per fare un ordinamento dei dati nella griglia...

[Golia]

Ciao milio

ho cambiato il metodo GridBox.Reset(): prima mi faceva un 'Refresh' della griglia. Ora mi 'ripulisce' la griglia

Praticamente adesso per fare il Refresh:

ME.GridEdit1.Reset()
ME.GridEdit1.LoadData(sql)

ColumnClick(Column AS Integer) e ColumnRow(Column AS Integer)

Possono sempre far comodo, devo ricordarmi di inserirli nella guida

[milio]

Praticamente adesso per fare il Refresh:
ME.GridEdit1.Reset()
ME.GridEdit1.LoadData(sql)

no basta GridEdit1.Refresh() 

[Golia]

ah

[Golia]

Ciao a tutti.
Il progetto di Milio è davvero a un buon punto, e invito tutti gli utenti che lavorano con database a darci un'occhiata.
Troverete uno strumento molto potente, di facile utilizzo nella stesura codice, anche molto concentrato volendo usare il metodo Milio al posto del metodo tradizionale. Vi assicuro che con una quarantina di righe di codice create una griglia con lettura e inserimento dati in vari formati, e con comandi di gestione già pronti. Allego un esempio, con i 2 metodi, il metodo tradizionale (di facile apprendimento) e il metodo Milio (molto sintetico).
Lo troverete anche molto pratico e veloce nell'inserimento dati per quanto riguarda l'utente finale.
Nell'esempio c'è già un database sqlite con qualche record già scritto.
Sono sicuro che dopo aver visionato l'esempio non potrete fare a meno di usarlo

..così magari qualcuno mi aiuterà a fare la guida

[milio]

Mi stai facendo pubblicita' adesso?


l'esempio che hai fatto va benissimo.. il problema e' che devi avere il componente installato, altrimenti non funziona

[Golia]

Ho tralasciato il particolare più importante 
La guida per l'installazione del componente la trovate quì http://www.gambas-it.org/wiki/index.php/Installazione

[Golia]

Ciao Milio, come va?

Ho rifatto qualche form nel mio progetto che uso al lavoro, e per adesso mi sembra vada tutto benissimo
Penso che per aumentare ulteriormente la velocità di inserimento dati, si dovrebbe creare una nuova riga (dall'ultima riga) premendo la freccia giù anche se non sei nell'ultima colonna. Come funziona adesso per creare la nuova riga bisogna per forza passare per l'ultima colonna editabile.
Non che sia indispensabile.. però a mio parere avrebbe una prestazione più veloce 

Ciao, tienimi aggiornato per gli aggiornamenti

[milio]

Ciao golia...

Per questa e prossima settimana niente aggiornamenti
sono al mare con la famiglia...

Ci sentiamo quando rientro

Ciao

[Golia]

Il riposo del guerriero
Buona vacanza, ciao