Jump to content
Fivewin Brasil

xBrowse - trocar posição de colunas (Resolvido)


Orlando FMC

Recommended Posts

Mestres,

tem jeito de mudar a posição de uma coluna do xBrowse, em tempo de execução? Ex.: coluna 7 mudar para a posição 2.

Acho que já fiz isso no TcBrowse, mas não me lembro onde.

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Editado por - orlandof on 26/06/2012 00:52:09

Link to comment
Share on other sites

Mestres,

tem jeito de mudar a posição de uma coluna do xBrowse, em tempo de execução? Ex.: coluna 7 mudar para a posição 2.

Acho que já fiz isso no TcBrowse, mas não me lembro onde.

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Editado por - orlandof on 26/06/2012 00:52:09

Link to comment
Share on other sites

Desculpe, Geovanni. Não fui claro.

Não quero arrastar com o mouse, e sim mudar automático quando eu mudar o índice (ordem).

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Link to comment
Share on other sites

Ola Orlando, numca fiz aqui , mais na logica parece coisa simples...

ex:

sua browse

oBrw:aCols[1]:cHeader := "Código"

oBrw:aCols[2]:cHeader := "Nome da Classificação"


funcao que muda a ordem

if ordem=1

oBrw:aCols[1]:cHeader := "Nome da Classificação"

oBrw:aCols[2]:cHeader := "Código"

else

oBrw:aCols[1]:cHeader := "Código"

oBrw:aCols[2]:cHeader := "Nome da Classificação"

endif

oBrw:refresh()

oBrw:setfocus()

return .t.

id=code>id=code>

Abraços

Luiz Fernando

http:\\img193.imageshack.us\img193\6434\foto3nr.jpg

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH110

Editado por - empresoft on 25/06/2012 13:04:39

Link to comment
Share on other sites

citação:

já tentou??

METHOD SwapCols( oCol1, oCol2 )

Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY)

NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO


id=quote>id=quote>

Erciley,

dá erro na compilação...

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Link to comment
Share on other sites

citação:

Ola Orlando, numca fiz aqui , mais na logica parece coisa simples...

ex:

sua browse

oBrw:aCols[1]:cHeader := "Código"

oBrw:aCols[2]:cHeader := "Nome da Classificação"


funcao que muda a ordem

if ordem=1

oBrw:aCols[1]:cHeader := "Nome da Classificação"

oBrw:aCols[2]:cHeader := "Código"

else

oBrw:aCols[1]:cHeader := "Código"

oBrw:aCols[2]:cHeader := "Nome da Classificação"

endif

oBrw:refresh()

oBrw:setfocus()

return .t.

id=code>id=code>

Abraços

Luiz Fernando

http:\\img193.imageshack.us\img193\6434\foto3nr.jpg

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH110

Editado por - empresoft on 25/06/2012 13:04:39


id=quote>id=quote>

Luiz,

Pelo que entendi, desta forma, você muda apenas os títulos das colunas.

O que preciso é mudar a posição das colunas.

Exemplo: tenho um xBrowse com 4 colunas (A,B,C,D), ordenado pela coluna A.

Quando acionar um RadioButtom para alterar a ordem, digamos que, para a coluna D, quero que mude também a ordem de apresentação das colunas, ficando assim: D, A, B, C.

Ou seja, estou mudando a posição da coluna D, que estava na 4ª posição, para a 1ª posição.

Em TCBrowse: oBrw:SwitchCols(1, 4).

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Editado por - orlandof on 25/06/2012 23:22:39

Editado por - orlandof on 26/06/2012 00:34:52

Link to comment
Share on other sites

citação:

já tentou??

METHOD SwapCols( oCol1, oCol2 )

Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY)

NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO


id=quote>id=quote>

Desculpe Erciley,

Tentei novamente e funcionou redondo: oBrw:SwapCols(3, 4).

Obrigado.

Obrigado também aos amigos Geovanni e Luiz Fernando.

Orlando F Martins da Costa

Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC

orlandofmc@yahoo.com.br

Belo Horizonte - MG

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...