xBrowse

[Ruben D. Fernandez]

Amigos:

Como hago para mostrar 3 campos por linea.

Tengo una BD de 9 campos y quiero mostrarlos de a 3 o sea

3 celdas de 3 campos (son de diferente tipo)

Muchas gracias.

Ruben Fernandez.

[Ruben D. Fernandez]

Amigos:

El For ... Next
no me funciona

Debo cargar los campos sin saber el nombre de ellos, por eso
lo averiguo con Fieldname.

Muchas gracias.

oBrw := TXBrowse():New( oDlg )


oCol:=oBrw:AddCol()
oCol:cHeader:= "Mesa" +CRLF+"Apertura"+""
oCol:bStrData:= {|| DToC((basedato)->sesi)+CRLF+(basedato)->MESA_1+CRLF+(basedato)->MESA_2 }
nfor:=4
nSigue:=4
nCampito1:=""
nCampito2:=""
nCampito3:=""
nImporte1:=0
nImporte2:=0
nImporte3:=0


for nFor := 4 to 9
oCol:=oBrw:AddCol()
oCol:cHeader:= "Hora:"+CRLF+SubStr(FieldName(NFOR),2,2 )
nCampito1 := (basedato)->(FieldName(NFOR) )
nCampito2 := (basedato)->(FieldName(NFOR+1) )
nCampito3 := (dasedato)->(FieldName(NFOR+2) )
nImporte1:=Transform((basedato)->(FIELDGET(FieldPos(nCampito1))),"9999999,99")
nImporte2:=Transform((basedato)->(FIELDGET(FieldPos(nCampito2))),"9999999,99")
nImporte3:=Transform((basedato)->(FIELDGET(FieldPos(nCampito3))),"9999999,99")

oCol:bStrData:= {|| str(nImporte1)+CRLF+str(nImporte2)+CRLF+str(nImporte3) }

oCol:nWidth:= 120
NFOR+=2


next




oBrw:CreateFromResource( 110 )


oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:nHeaderLines := 3
oBrw:nFooterLines := 1
oBrw:nDataLines := 3
oBrw:lFooter := .t.
oBrw:SetRDD()
oBrw:GoTop()


oBrw:Refresh(.t.)

Muchas gracias nuevamente.