Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

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 if

Case 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 case

GOTO 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: 11834

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
303 utenti registrati

Pagina servita il 28/03/24 alle 15:30:28 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad