Creazione componente: gb.gridbox

[milio]

Diciamo che per adesso e' solo un'idea... volevo provare ad utilizzare una griglia fatta con una drawingarea per riuscire a disegnare i bordi alle celle, che è quello che manca alla griglia di gambas.... magari se facessimo una richiesta a benoit... mi eviterebbe notti insonni a  e 

[Golia]

Ho provato a sistemare il solito esempio con G3, penso che le modifiche di gridbox siano state tante..
Ti allego l'esempio mi dai una sistemata perchè non riesco a farlo andare..naturalmente quando hai tempo 
E se ti avanza tempo.. mi aggiungi qualche esempio delle ultime novità?
Ciao grazie

[milio]

Il solo motivo per cui non ti funzionava l'esempio era perche' non avevi l'ultima versione corretta che io naturalmente mi sono dimenticato di allegare 

[milio]

Ho aperto adesso il tuo esempio e volevo parlarti del metodo 'milio'

Sicuramente e' il modo più rapido di settare la griglia (l'avevo creato apposta ), ma mi è capitato sovente di dover ripassarci sopra per modificare i numeri delle colonne, solo perche' volovo aggiungerne delle altre... quindi il mio consiglio e' di utilizzare il metodo tradizionale, in virtù anche delle nuove proprietà aggiunte...
se mi dai una mezz'oretta ti posto un esempio delle nuove funzioni...

[Golia]

Concordo, anche se è proprio fico vedere un form attrezzato di tutto con solo 10 righe di codice 
Grazie, fa pure con calma anche perchè adesso..
Ciao

[milio]

Avendo oggi testato la GridBox in 'sola lettura' ho dovuto modificare un po' di codice per il salvataggio dei record...
Adesso dovrebbe essere a posto..

[Golia]

Visto e stò sniffando provando il tutto 

Ho provato a fare una colonna combobox..dove sbaglio?

Codice: gambas [Seleziona]

   With GridBox1.Columns[Col]
     .Hide = False
     .Type = Grid.Type.ComboBox
     .Box.ListCombo = .ReturnCollection("SELECT id, descrizione FROM colori ORDER BY descrizione;")
     .Field = "colore"
     .Text = "Colore"
     .Alignment = 3
     .w = 80
   End With 

e per i comandi è forse cambiata la sintassi?

Codice: gambas [Seleziona]

Public Sub btnuovo_Click()
  Me.GridBox1.NewRecord()
End

[milio]

mmm non sembra ci siano errori... adesso accendo l'altro portatile e ti dico...

[milio]

Allora....

dove hai scritto:

Codice: gambas [Seleziona]

   .Box.ListCombo = .ReturnCollection("SELECT id, descrizione FROM colori ORDER BY descrizione;")  

il metodo ReturnCollection() è di proprietà dell'oggetto GridBox.
Quindi va scritto:

Codice: gambas [Seleziona]

   .Box.ListCombo = GridBox1.ReturnCollection("SELECT id, descrizione FROM colori ORDER BY descrizione;")  

Sinceramente non mi ricordavo neanche di aver scritto quel metodo

Per quanto riguarda

Codice: gambas [Seleziona]

Public Sub btnuovo_Click()  
  Me.GridBox1.NewRecord()  
End  

controlla nelle proprietà del progetto che sia abilitato, nelle opzioni, 'i controlli del form sono "public"'

Il tutto comunque mi ha portato a vedere una serie di errori che per adesso ho tacconato con un bel Try... domani in ufficio devo scoprire la natura di questi errori che presumibilmente sono dati dalle funzioni di controlle delle formule e della formattazione condizionata...

Ciao

[milio]

opss.. ti allego anche i sorgenti funzionanti...

[Golia]

Ciao Milio,
con i controlli public va tutto ok

ReturnCollection non va non sembra "esistere", ho qualche dubbio di non aggiornare bene il componente.
Mi puoi spiegare i passaggi che devo fare per aggiornarlo? Grazie per la pazienza

[milio]

hai letto il mio precedente post?

RturnCollection() fa parte dell'oggetto GridBox e non di GridBox.Columns

il codice che avevi postato era compreso in With GridBox.Columns[Col] ... ... End With quindi faceva riferimento alla colonna del gridbox e non alla gridbox

[Golia]

Non avevo letto bene
Però non riesco a farlo andare neanche nella proprietà di Gridbox1.. 
scrivo così:

Codice: gambas [Seleziona]

    With GridBox1
    .Expand = True
    .Connection = $CCon
    .AutoDataType = True
    .FieldKey = ["iddettaglio"]
    .TableName = "dettagli"
    .LoadData("select * from dettagli ORDER BY x")
    
    .box.ListCombo = GridBox1.ReturnCollection("SELECT id, descrizione FROM colori ORDER BY descrizione;")
    
    .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 

[milio]

verifica anche che i campi id e descrizione esistano veramente nel db....
il sorgente che avevo scaricato erano scritti in un'altra maniera

[Golia]

Si esistono, ho cambiato il db non è lo stesso che avevi scaricato.
Ti riallego i sorgenti
Ciao