Titolo: Usare i tasti freccia per scorrere la lista di record
Categoria: Codice |
|
Ultimo Aggiornamento: 27/12/04 |
Sarà capitato a tutti di ricevere da un cliente la richiesta di poter utilizzare le frecce per poter scorrere le liste di record nel form di output di una tabella.
Per chi non usa la 2004 ecco un metodo da associare a quattro pulsanti non visibili nel form di output. Ad ognuno dei pulsanti collegare la pressione dei pulsanti "Freccia Giù" "Freccia Su" "Pag Giù" "Pag Su".
Il metodo, prendendo come parametri la tabella corrente, l'azione e opzionalmente il numero di record da saltare selezionerà il record successivo/precedente o salterà avanti/indietro di "$3" record:
DEFAULT TABLE($1->)
C_LONGINT($N;selectedRecord)
$N:=Records in selection($1->)
$pTable:=$1
BOOLEAN ARRAY FROM SET($set_ab)
$numeroRecord_l:=Find in array($set_ab;True;0)
LONGINT ARRAY FROM SELECTION($pTable->;$record_al)
selectedRecord:=Find in array($record_al;$numeroRecord_l)
If (Count parameters>2)
$quanti:=$3
Else $quanti:=1
End ifCase of : ($2="down")
selectedRecord:=selectedRecord+$quanti
If (selectedRecord>$N)
selectedRecord:=$N
End if : ($2="up")
selectedRecord:=selectedRecord-$quanti
If (selectedRecord<1)
selectedRecord:=1
End if End caseGOTO SELECTED RECORD($1->;selectedRecord)
CREATE EMPTY SET($1->;"ListSet")
ADD TO SET($1->;"ListSet")
HIGHLIGHT RECORDS("ListSet")
CLEAR SET("ListSet")
Usando lo stesso principio si potrebbero aggiungere anche i pulsanti per selezionare il primo o l'ultimo record della lista.
| Inviato da: PierPaolo Sichera |
|
Visite: 12196 |
Se accedi con utente e password, puoi aggiungere dei commenti.
