ORDINAMENTO FUNZIONE

Di piĆ¹
3 Anni 9 Mesi fa #691 da fabioM1
fabioM1 ha creato la discussione 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

Si prega Accedi a partecipare alla conversazione.

Tempo creazione pagina: 0.103 secondi
Powered by Forum Kunena