[VB6] Scorrere righe in MSFlexGrid...all'indietro

[Magicolotto]

ciao a tutti come da titolo per scorrere in giu

Dim x As Variant
datPrimaryRS.MoveLast
x = datPrimaryRS.AbsolutePosition
MSHFlexGrid1.RowPosition(x) = MSHFlexGrid1.MousePointer
MSHFlexGrid1.Refresh

e funziona benissimo



per far tornare indietro invece uso :

Dim x As Variant
datPrimaryRS.MoveFirst
x = datPrimaryRS.AbsolutePosition
MSHFlexGrid1.RowPosition(x) = MSHFlexGrid1.MousePointer
MSHFlexGrid1.Refresh

questa pero' non va perche non scorre all'indietro, mi spiego meglio

al primo clik scorre di passo uno...
al 2° clikk rimette a posto l'azione del primo clik

quindi non scorre ma alterna due row

[girobai]

non so se ho capito bene cosa vuoi fare, se vuoi far scorrere avanti o indietro la griglia usa la funzione griglia.toprow