Ragazzi ho trovato la soluzione e funziona perfettamente, spesso chi cerca trova. C'è solo un piccolo problema. Non riesco a capire cosa effettivamente fanno. C'è qualcuno così cortese da farmi comprendere l'arcano del funzionamento di queste routines??
Public Sub BTN_Su_Click()
Dim sRiga As String
' remove the highlight
ColumnView1.Current.Selected = False
' do the reposition
If Not ColumnView1.MovePrevious() Then
' is done, get the key
sRiga = ColumnView1.Item.Key
' highlight the new item by key
ColumnView1[sRiga].Selected = True
Endif
End
Public Sub BTN_Giu_Click()
Dim sRiga As String
ColumnView1.Current.Selected = False
If Not ColumnView1.MoveNext() Then
sRiga = ColumnView1.Item.Key
ColumnView1[sRiga].Selected = True
Endif
End