Page 1 of 1
Listbox de un array
Posted: Tue Sep 08, 2009 12:39 pm
by dobfivewin
Estiamdos
como puedo arma un listbox de un array pero con varias columnas, como se arma en una base de datos con varias campos.
David
Argentina
Re: Listbox de un array
Posted: Tue Sep 08, 2009 3:41 pm
by ADBLANCO
No se, Sería algo Como Esto
Code: Select all
Local VecComp:={{"TICKET","TI"},{"FACTURA","FA"},{"CREDITO","CR"},{"REMITO","RE"}}
REDEFINE LISTBOX oLbxT;
FIELDS VecComp[oLbxT:nAt,1],;
VecComp[oLbxT:nAt,2];
HEAD "Tipo de comprobante","Codigo";
SIZES 250,70;
ID 1000 OF oDlg1
oLbxT:SetArray( VecComp )
Re: Listbox de un array
Posted: Tue Sep 08, 2009 7:00 pm
by dobfivewin
Muchas gracias..., anda perfecto...
Ahora
Como le agrego ON DBLCLICK, como extraigo de la fila seleccionada el dato de la columna 1
David
Re: Listbox de un array
Posted: Tue Sep 08, 2009 7:22 pm
by dobfivewin
Me contesto solo...
ON DBLCLICK ( MsgInfo( mDatosPresu[oDatosPresu:nAt,1] , 'Seleccion de Item') )
Saludos
David
Re: Listbox de un array
Posted: Tue Sep 08, 2009 7:58 pm
by ADBLANCO
o:bKeyDown:= {|nKey| IIF(nKey==VK_RETURN,EVAL(bButModif),)} // enter en el listbox
o:bLDblClick := {|| EVAL(bButModif)} // doble click en el listbox
Re: Listbox de un array
Posted: Tue Sep 08, 2009 8:08 pm
by ADBLANCO
Cual LISTBOX utilizas tu, Yo me quedé con la clase TwBrowse, por eso no se si lo que respondo puede servirte.
Re: Listbox de un array
Posted: Tue Sep 08, 2009 8:19 pm
by ADBLANCO
Puedes probar a ver si te traban cosas como estas
Code: Select all
REDEFINE LISTBOX oLbx ;
FIELDS STRZERO(TMDEENC -> ANODEM,2) +'-'+ STRZERO(TMDEENC -> NUMDEM,3),;
TRANSFORM(TMDEENC -> FECAPER,'99') ,;
TRANSFORM(TMDEENC -> EXPEDIENTE,'9999999999') ,;
SUBSTR(TMDEENC -> DEMANDADO,1,50) + CRLF + SUBSTR(TMDEENC -> DEMANDANTE,1,50);
ALIAS "TMDEENC" ;
HEADERS " Num"," Fecha"," Expediente"," Demandado/Demandante" ;
FIELDSIZES 30,75,75,240 ;
ID 401 OF oDlg
oLbx:Set3DStyle()
oLbx:nHeaderHeight := 31 // Da la altura del header
oLbx:nLineHeight := 40 // Da la altura de la linea
oLbx:Ajustify := {0,0,1,0} // Justificado de Columnas 0=izq, 1=Der, 2=Cent
oLbx:lAdjLastCol := .T. // ajusta la ultima columna
oLbx:bKeyDown := {|nKey| IIF(nKey==VK_RETURN,EVAL(bButModif),)} // enter en el listbox
oLbx:bLDblClick := {|| EVAL(bButModif)} // doble click en el listbox
oLbx:nRowPos := 3
![Rolling Eyes :roll:](./images/smilies/icon_rolleyes.gif)