Página 1 de 1
Pegar valor de linha no TBROWSE
Enviado: 26 Jan 2017 11:25
por fernandoxhb
Pessoal, preciso de um ajuda.
Em um browse, preciso obter o valor da primeira linha e primeira coluna, independente de qual linha estiver.
O comando abaixo me retorna o valor da linha corrente (mb:rowPos)
alert( eval(mb:getColumn(1):block) )
Oque posso alterar no meu código para retornar o valor da primeira linha ao invés da linha corrente.
Att Fernando.
Pegar valor de linha no TBROWSE
Enviado: 26 Jan 2017 12:06
por alxsts
Olá!
Seja bem-vindo ao Fórum Fernando!
Tente algo assim:
Código: Selecionar todos
FUNCTION Main()
QOut( TbGetFirstCell( mb ) )
RETURN NIL
//--------------------------------------------------------
FUNCTION TbGetFirstCell( oTb )
LOCAL nPos, xVal
nPos := oTb:rowPos
oTb:goTop():forceStable()
xVal := Eval( oTb:getColumn(1):block )
While ( nPos != oTb:rowPos .AND. ! oTb:hitBottom )
oTb:down():stabilize()
Enddo
oTb:refreshAll:forceStable()
RETURN xVal
//--------------------------------------------------------
P.S.: Este código não foi compilado e nem testado.
Pegar valor de linha no TBROWSE
Enviado: 27 Jan 2017 08:41
por fernandoxhb
Alexandre, bom dia!
Obrigado pelas boas vindas e pela ajuda.
O código que você me passou, passa o valor do primeiro registro utilizado no browse.
Utilizo um browse com 4 linhas e quando utillizo o PgDown por exemplo, a primeira linha do browse fica sendo a linha 5 e assim por diante.
Essa necessidade surgiu para a mudança de cor de algumas linha, no meu TBrowse eu tenho uma coluna chamada codgru e onde o valor for '13' eu preciso que essa linha seja de uma cor diferente.
Até consegui utilizando o oTb:colorRect(), mas a cor vai aparecendo só quando a linha é setada, eu preciso fazer com que mostre as cores de acordo com a paginação, por isso preciso pegar a primeira informação de cada pagina.