provando mi da errore....

subscript out of range..

Private Sub Command2_Click()
Dim c As Integer, x As Variant
For c = 0 To fxg_percorsi.Cols - 1
x = fxg_percorsi.TextMatrix(r, c)
fxg_percorsi.TextMatrix(r, c) = fxg_percorsi.TextMatrix(r - 1, c)
fxg_percorsi.TextMatrix(r - 1, c) = x
Next

End Sub

seleziono sulla flexgrid e cliccando su sposta me lo sposta in alto.

ma si puo' fare anche nel db che te lo sposta secondo dove decidi te?(db access)

grazie