FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Algunos problemillas
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Algunos problemillas
Posted: Fri Apr 03, 2009 01:13 PM
Pedro wrote:Hola Daniel

No sé, quizás sería algo así como....
For n := 1 to 15
oCol := oBrw:AddCol()
oCol:bStrData := FieldWBlock(FieldName(n),nSelect)
oCol:cHeader := FieldName(n)
......
EndFor

No te funciona de esa forma pq cuando el ciclo for se termina la variable "n" contiene el valor 16, cuando se hace el "armado" del browse y se quiera mostrar el contenido de la columna "n" y este valor sera 16

Tu solucion seria asignar a bStrData por medio de un code block, de estas forma pasamos el valor "n" como parametro y este nos retorna el codigo con el valor actual de "n"

Code (fw): Select all Collapse
oCol:bStrData := CreaCode( n, nSelect )

function CreaCode( n, nSelect )
return FieldWBlock(FieldName(n),nSelect)

Continue the discussion