Salve a tutti.
premettendo che uso Visual Basic 6 e sono un pò :berto: in meteria , ho un piccolo problema con l'incremento della flexgrid.row. quello che sto realizzando è un semplice travaso di dati. L'utente seleziona con il puntatore (doppioclick) un determinato dato da una flexgrid e lo va ad inserire in un'altra flexgrid( flex_carrello ). il problema e che non riesco ad incrementare il numero di righe ma vado sempre ad ggiornarle sulla stessa. Mi date una mano? posto in codice dell'azione.
codice:
Sub AggiungiArticolo()
Dim RigaSelez As Integer
Dim produttore As String, Codice As String, Descrizione As String, _
Prezzo As String, quantita As String, dettagli As String
Dim count As Integer
'$$$$$$$$$ Memorizzo nelle variabili i valori della riga selezionata. $$$$$$$$$
If flex.Row > 0 Then
RigaSelez = flex.RowSel
flex.Col = 1
flex.Row = RigaSelez
produttore = flex.Text
flex.Col = 2
flex.Row = RigaSelez
Codice = flex.Text
flex.Col = 3
flex.Row = RigaSelez
Descrizione = flex.Text
flex.Col = 4
flex.Row = RigaSelez
Prezzo = flex.Text
End If
'$$$$$$$$$ trasferisco i valori delle variabili nella flex_carrello $$$$$$$$$
For count = 1 To count + 1
flex_carrello.Col = 0
flex_carrello.Row = count
flex_carrello.Text = produttore
flex_carrello.Col = 1
flex_carrello.Row = count
flex_carrello.Text = Codice
flex_carrello.Col = 2
flex_carrello.Row = count
flex_carrello.Text = Descrizione
flex_carrello.Col = 3
flex_carrello.Row = count
flex_carrello.Text = Prezzo
Next
End Sub
p.s.: ci sono delle variabili in piu ma non tenetele in considerazione tranne se è li il problema.
Grazie a tutti.