LISTBOX como obtener el numero de columna actual?

[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

Jaime

[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

[jacgsoft]

Raymundo Gracias, Funciono perfectamente

Se Agradece


Jaime