ORDINAMENTO FUNZIONE

nella form
______
Private Sub OrdinaPer(NField As Integer, Field As String)
Me.OrderByOn = False

If IsNull(OrderField(NField)) Or OrderField(NField) = "" Then
OrderField(NField) = "ASC"
End If

Select Case OrderField(NField)

Case "ASC"
OrderField(NField) = "DESC"
GoTo Commit

Case "DESC"
OrderField(NField) = "ASC"
GoTo Commit

End Select

Commit:

Me.OrderBy = Field & " " & OrderField(NField)
Me.OrderByOn = True

End Sub
_________

Comando evento
Call OrdinaPer(1, "peso")

_______________

Variabile moduli generale
Public OrderField(100) As String