Executar Comando no Tbrowse

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

negrao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 06 Jul 2004 08:38

Executar Comando no Tbrowse

Mensagem por negrao »

Tbrow := {}
tbrow[1,1] := tes_codi
tbrow[1,2] := C
tbrow[1,3] := 10
tbrow[1,4] := 'Codigo'
tbrow[1,5] := ''

tbrow[2,1] := tes_valo
tbrow[2,2] := N
tbrow[2,3] := 10,2
tbrow[2,4] := 'Valor'
tbrow[2,5] := 'transform(tes_valo,"@e 999,999.99")'

FOR N := 1 TO LEN(TBROW) // ADICIONA UMA COLUNA
OB:ADDCOLUMN(TBCOLUMNNEW(ALLTRIM(TBROW[N,4]),iif(TBROW[N,5]=="",FIELDBLOCK(TBROW[N,1]),FIELDBLOCK(TBROW[N,5]))))

Next


Pessoal, é o seguinte:
Nesse FOR é que eu monto meu Tbrowse(isso é apenas um exemplo).
Gostaria de saber se tem como executar um comando(tbrow[2,5]) dentro do FOR, ja tentei por de tudo e nada.

Obrigado pela ajuda
Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Mensagem por Dudu_XBase »

naum entendi o q vc qr fazer...to mei lerdo...balada..rs...explique o q vc qr fazer detalalhando....firmeza...


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




Responder