Listbox de un array

[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

[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 )
 

[dobfivewin]

Muchas gracias..., anda perfecto...

Ahora

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

David

[dobfivewin]

Me contesto solo...



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

Saludos

David

[ADBLANCO]

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

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

[ADBLANCO]

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

[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