ORDINAMENTO FUNZIONE
Riduci
Di piĆ¹
- Messaggi: 142
- Ringraziamenti ricevuti 0
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
______
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
- Sei qui:
- Home
- Forum
- MsAccess 2010 - Sharepoint 2010
- ORDINAMENTO FUNZIONE