Titolo: Metodo alternativo per riempire una Popup Drop Down List
Categoria: Codice |
|
Ultimo Aggiornamento: 04/06/12 |
Uso questo metodo nell'oggetto Popup cmb_Cliente che risolve velocemente il problema del valore di default quando un database è completamente vuoto.
Case of : (Form event=On Load)
ARRAY LONGINT(cmb_CodCliente;0)
ARRAY TEXT(cmb_Cliente;0)
ALL RECORDS([Clienti])
SELECTION TO ARRAY([Clienti]Progressivo;cmb_CodCliente; [Clienti]Rag_Sociale;cmb_Cliente)
If (Size of array(cmb_CodCliente)>0)
If (Is new record([Stabilimenti])) //nuova scheda
cmb_Cliente:=1 //mostra un valore di default
cmb_CodCliente:=cmb_Cliente
Else //se ci sono record, cerca il codice nel vettore cmb_CodCliente
// Se Find in array ritorna -1 verrà generato un errore
// Usando Abs(Find in array..... restituira -1 (quindi 1)
cmb_CodCliente:=Abs(Find in array(cmb_CodCliente;[Stabilimenti]Cod_Cliente))
cmb_Cliente:=cmb_CodCliente
End if End if : (Form event=On Clicked)
If (cmb_Cliente#0)
cmb_CodCliente:=cmb_Cliente
[Stabilimenti]Cod_Cliente:=cmb_CodCliente{cmb_CodCliente}
End if : (Form event=On Unload)
CLEAR VARIABLE(cmb_CodCliente)
CLEAR VARIABLE(cmb_Cliente)
End case
| Inviato da: Roberto Condorelli |
|
Visite: 11588 |
Se accedi con utente e password, puoi aggiungere dei commenti.
