topic-16617

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Listbox de un array
Posted: Tue Sep 08, 2009 12:39 PM

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

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Listbox de un array
Posted: Tue Sep 08, 2009 03:41 PM

No se, Sería algo Como Esto

Code (fw): Select all Collapse

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 )

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: Listbox de un array
Posted: Tue Sep 08, 2009 07:00 PM

Muchas gracias..., anda perfecto...

Ahora

Como le agrego ON DBLCLICK, como extraigo de la fila seleccionada el dato de la columna 1

David

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: Listbox de un array
Posted: Tue Sep 08, 2009 07:22 PM

Me contesto solo...

ON DBLCLICK ( MsgInfo( mDatosPresu[oDatosPresu:nAt,1] , 'Seleccion de Item') )

Saludos

David

:-)

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Listbox de un array
Posted: Tue Sep 08, 2009 07:58 PM

o[i]:= {|nKey| IIF(nKey==VK_RETURN,EVAL(bButModif),)} // enter en el listbox

o[I]:bLDblClick := {|| EVAL(bButModif)} // doble click en el listbox

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Listbox de un array
Posted: Tue Sep 08, 2009 08:08 PM

Cual LISTBOX utilizas tu, Yo me quedé con la clase TwBrowse, por eso no se si lo que respondo puede servirte.

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Listbox de un array
Posted: Tue Sep 08, 2009 08:19 PM

Puedes probar a ver si te traban cosas como estas

Code (fw): Select all Collapse

      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

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

FiveTech Support Forums

Continue the discussion