Help-me Message not found: TSCOLUMN:BLOCK

[Amparo]

ola amigos

tendo o TBROWSE abaixo como eu faço para pegar o resultado de uma coluna, observando que hora o TBROWSE tem 3 colunas hora tera 10 colunas depende do array SGC020101FIELDS, em clipper 5.3 eu faço assim:

Código: Selecionar todos

FOR nContFor := 1 TO len( SGC020101FIELDS )
     xVal := Eval( oBro:GetColumn( nContFor ):Block )
alert(xVal)
*a cada coluna vai mostrar o resultado dela
NEXT nContFor

como fazer em minigui, pergunto porque colocando a mesma linha da erro em Block
Error BASE/1004 Message not found: TSCOLUMN:BLOCK

Código: Selecionar todos

DEFINE TBROWSE oBROW AT 100,005 OF SGC020101FORM ALIAS 'CLIENTES'
  WIDTH LARGURA020101 - 15 ;  HEIGHT ALTURA020101 - 160 FONT "Arial" SIZE 10     

  f := Len( SGC020101FIELDS )

  FOR W := 1 TO f STEP 1
     ADD COLUMN TO BROW020101 HEADER SGC020101TITULO[W] SIZE      
       SGC020101TAMANHO[W] FOOTER "";
       PICTURE IIF( SGC020101TIPO[W] == "N", SGC020101PICTURE[W], "@!" ) ;
       DATA FieldWBlock( SGC020101FIELDS[W], Select( "CLIENTES" ) ) ;
       ALIGN IIF( SGC020101TIPO[W] == "C", DT_LEFT , IIF( SGC020101TIPO[W] ==    
      "N", DT_RIGHT , DT_CENTER ) ) , ; nMakeLong( DT_CENTER, 3 )

      BROW020101:UPSTABLE( )
      BROW020101:lNoResetPos := .t.
      BROW020101:SETFOCUS( .T.)
      BROW020101:DRAWSELECT( )
      BROW020101:lHasChanged := .T.
      BROW020101:Paint()
      BROW020101:ResetVScroll(.F.)
END TBROWSE

FOR nContFor := 1 TO len( SGC020101FIELDS )
???????????????????????
NEXT nContFor

[Amparo]

ola amigos

so uma correção:

nao é xVal := Eval( oBro:GetColumn( nContFor ):Block ) e sim xVal := Eval( BROW020101:GetColumn( nContFor ):Block )

é que em clipper esta oBro e estou convertendo para minigui e mudei para BROW020101