Page 1 of 1

LISTBOX como obtener el numero de columna actual?

Posted: Mon Apr 16, 2007 6:24 pm
by jacgsoft
saludos a todos del Foro, hasta ahora no se como obtener el numero de columna actual de un ListBox :(

tengo el siguiente ListBox un DBF de 3 campos

pero "oBrw2:nColAct" siempre retorna 1 a pesar de que el puntero esta en la 2da o 3ra columna, ¿como hago para que retorne 2 o 3?


@ 01,01 ListBox oBrw2 ;
Fields G->Tco_codi,G->Tco_desc,Str(G->Tco_impo,10,2) ;
Header 'Codigo','Descripcion','Importe' ;
Size 180,90

bGet:={|| uVal:=G->Tco_impo, oBrw2:lEditCol(oBrw2:nColAct,@uVal,,,,), ;
G->Tco_impo:=uVal, oBrw2:Refresh() }

oBrw2:blDblClick:={|| Eval(bGet) }


Se agradecera por la ayuda :lol:

Jaime

Posted: Tue Apr 17, 2007 12:03 am
by Raymundo Islas M.
Hola, yo uso este procedimiento :


lbCapMvs:bLDblClick := {| nRow, nCol | EdItmXDev( nRow, nCol ) }


Static Function EdItmXDev( nRow, nCol )
LOCAL nColGet := Ascan( lbCapMvs:GetColSizes(), ;
{ | nColumn | nColPos += nColumn, nCol <= nColPos }, lbCapMvs:nColPos )

msginfo( nColGet )

Return NIL


Espero te sirva.


Saludos

Posted: Tue Apr 17, 2007 3:44 pm
by jacgsoft
Raymundo Gracias, Funciono perfectamente :lol:

Se Agradece


Jaime