Llenar desde una matriz las columnas usando TBColumnNew

Board index FiveWin para Harbour/xHarbour Llenar desde una matriz las columnas usando TBColumnNew

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Llenar desde una matriz las columnas usando TBColumnNew
Posted: Thu Apr 25, 2013 03:41 PM

Saludos al Forum

Es factible llenar desde una matriz asignar los nombre de las columnas, lo hago pero me asigna a todas las columnas el ultimo nombre de la columna de la matriz. (En este caso status)

Esta es la matriz
:regBrows := { {"Codigo","codcia",2},{"Nombre","RAZONS",20},{"Nit","NIT",12},{"Status","status",1} }

Code (fw): Select all Collapse

    i=0
    For i = 1 to  len(::regBrows)
     xdatcol := ::regBrows[i,2]  //"'"+::regBrows[i,2]+"'"
      column := TBColumnNew( ::regBrows[i,1], ::regBrows[i,2] } )
       b:addColumn( column )
    Next

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Llenar desde una matriz las columnas usando TBColumnNew
Posted: Fri Apr 26, 2013 06:23 AM

The second parameter of TBColumnew( <cHeader>, <bBlock> ) should be a codeblock. You can not and should not attempt to make codeblocks in a loop.

Please try

Code (fw): Select all Collapse

...
for i := 1 to Len( ::regBrows )
   oBrw:AddColumn( TBColumnNew( ::regBrows[ i, 1 ], ::MakeBlock( i ) ) )
next i
<next code>
return nil

METHOD MakeBlock( n ) CLASS YourClassName
return FieldBlock( ::regbrows[ i, 2 ] )

I am assuming that the second element is a field name

Regards

G. N. Rao.

Hyderabad, India

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Llenar desde una matriz las columnas usando TBColumnNew
Posted: Fri Apr 26, 2013 12:58 PM

Gracias Regards ya me funciono.

Con este codigo como ingreso un picture y un ancho de columna.
COLUMNA:Picture := "999,999,999,999"
COLUMNA:width := 16

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Llenar desde una matriz las columnas usando TBColumnNew
Posted: Fri Apr 26, 2013 01:15 PM

Buenas tardes

No lo he probado pero esto quizás funcione

Code (fw): Select all Collapse

         WITH OBJECT oBrw:aCols[ numero de columna ]
                  :width       := 16
                  :cPicture   := "999,999,999,999"
        ENDWITH

Un saludo

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion