Clipper On Line • Ver Tópico - Pegar valor de uma coluna do TBrowse

Pegar valor de uma coluna do TBrowse

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Pegar valor de uma coluna do TBrowse

Mensagempor asimoes » 31 Out 2016 12:20

A dica é para pegar o valor de uma coluna no TBrowse:

With Object oBr
   cCodPessoa := Eval(:getColumn(1):Cargo[2])
End
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Pegar valor de uma coluna do TBrowse

Mensagempor JoséQuintas » 01 Nov 2016 21:07

Tem certeza?
Que eu me lembre, cargo é coisa personalizada/pra usuário

Em harbour\src\rtl\tbrowse.prg, o método AddColumn() contém isto: AAdd( ::columns, oCol )

Em harbour\src\rtl\tbcolumn.prg, tem este método METHOD block( bBlock ) SETGET /* Code block to retrieve data for the column */

Me parece que seria isto:

Eval( oBrowse:Columns[ nCont ]:Block )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Pegar valor de uma coluna do TBrowse

Mensagempor asimoes » 02 Nov 2016 11:59

Cargo pode ser usado para este propósito bem como block.

oColuna := TBColumnNew( "Mˆs/Ano", {|| SubStr(APA01->AnoMes, 3, 2)+APA01->NovoAno})
oColuna:picture := "@R 99/9999"
oColuna:Cargo := {|| SubStr(APA01->AnoMes, 3, 2)+APA01->NovoAno}
oTBrowse:addColumn( oColuna )

cVar := Eval( oTBrowse:getColumn(1):Cargo)

â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Pegar valor de uma coluna do TBrowse

Mensagempor asimoes » 02 Nov 2016 12:05

Quintas,

No seu exemplo dá erro, porque o método Columns é protegido.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Pegar valor de uma coluna do TBrowse

Mensagempor JoséQuintas » 02 Nov 2016 16:54

Tem este outro:

   METHOD getColumn( nColumn )                  // gets a specific TBColumn object


? Eval( oTBrowse:GetColumn( nCont ):Block )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Pegar valor de uma coluna do TBrowse

Mensagempor wmanesco » 03 Nov 2016 14:01

Para utilizar o cargo então teria que primeiro setar o valor a ele?
William Manesco
Harbour 3.x | Fivewin | BCC | MySQL (TDolphin) | HBQT | HBIDE | Atom
wmanesco
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 116
Data de registro: 09 Set 2016 13:18
Cidade/Estado: ITAJAI - SC
Curtiu: 13 vezes
Mens.Curtidas: 4 vezes

Pegar valor de uma coluna do TBrowse

Mensagempor JoséQuintas » 03 Nov 2016 14:20

Pelo exemplo que o ASimões colocou, sim.
O :Cargo é um campo livre, disponível pro programador usar para o que quiser.
No exemplo dele, usou como "comunicação" entre o tbrowse e o programa, mas a rotina de tbrowse terá que gravar essa informação em :Cargo, senão nada feito.

Se não me engano, o GET tem algo parecido, que fica na GetList.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 13 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro