[VB6] Rimuovere le righe ad un MSFlexGrid

[gecoss]

questa stringa

griglia.rows = rows + 1

non la uso, la riga la inserisce automaticamente quando (cliccando sul mio pulsante "aggiungi alla lista") si attiva la routine

griglia.addItem rsArray!Descrizione & Chr(9) & rsArray!cod.....

Mi è qui il problema????

[amodio]

ah

allora non so esserti d'aiuto
prova a posate il codice casomai qualcuno
riesce a capirci qualcosa...

prova casomai vedo anc'hio

[gecoss]

Set rsArray = New ADODB.Recordset

With rsArray
.Fields.Append "Descrizione", ADODB.adVarChar, 50
.Fields.Append "Cod", ADODB.adVarChar, 50

.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
.AddNew
![Descrizione] = a(1, 1)
![cod] = a(1, 2)
.Update
MSFlexGrid1.AddItem rsArray!Descrizione & Chr(9) & rsArray!cod
.Close
End With

Ecco il codice di inserimento

[lufo5]

Dim vPrimaVolta as Boolean
vPrimaVolta = True
Set rsArray = New ADODB.Recordset


With rsArray
    .Fields.Append "Descrizione", ADODB.adVarChar, 50
    .Fields.Append "Cod", ADODB.adVarChar, 50

    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
    .Open
    .AddNew
    ![Descrizione] = a(1, 1)
    ![cod] = a(1, 2)
     .Update
     MSFlexGrid1.AddItem rsArray!Descrizione & Chr(9) & rsArray!cod
     If vPrimaVolta Then 
       MSFlexGrid1.RemoveItem 1 
       vPrimaVolta = False
    End if
   .Close
End With

Ecco il codice di inserimento

non è molto elegante, ma forse funziona.

[amodio]

ehi ufo come hai fatto ad indentare il codice qui sopra?

io quando lo poso non mi prende le tabulazioni!

[lufo5]

Originariamente inviato da amodio
ehi ufo come hai fatto ad indentare il codice qui sopra?

io quando lo poso non mi prende le tabulazioni!

basta usare i tag (CODE) (/CODE) - ovviamente al posto delle parentesi tonde, devi usare le quadre.