Eu fiz um dessa forma, mais é preciso criar uma coluna na tabela e ficar
atualizando toda hora. Gostaria de saber se existe uma solução mais
eficiente...
Veja como ficou a função para subir uma linha:
Set nLinha = TBL_MinRow
If SalTblFindNextRow( hWndForm, nLinha, ROW_Selected, 0 )
Call SalTblSetContext( hWndForm, nLinha )
!
Set nOrdemAtual = colOrdem
!
If SalTblFindPrevRow( hWndForm, nLinha, 0, 0 )
Call SalTblSetContext( hWndForm, nLinha )
!
Set nOrdemDestino = colOrdem
Set colOrdem = nOrdemAtual
!
If SalTblFindNextRow( hWndForm, nLinha, 0, 0 )
Call SalTblSetContext( hWndForm, nLinha )
!
Set colOrdem = nOrdemDestino
!
Call SalTblSortRows( hWndForm,
SalTblQueryColumnID( colOrdem ), TBL_SortIncreasing )
Tive que usar SalTblFindNextRow e SalTblFindPrevRow porque o FOCUS sai da
tabela quando o botão é clicado. Também tive problemas quando removo linhas
da tabela usando TBL_Adjust.
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome
de George Hilton
Enviada em: quinta-feira, 22 de novembro de 2007 14:00
Para: [email protected]
Assunto: Re: [sqlwin] Mover linhas da table
vc não pode reordenar a tabela a cada click no botão, para que a linha
apareça na posição desejada?
----- Original Message -----
From: Augusto <mailto:[EMAIL PROTECTED]>
To: [email protected]
Sent: Thursday, November 22, 2007 12:10 PM
Subject: RES: [sqlwin] Mover linhas da table
Já tentei, mais SalTblPasteRows cola no final da tabela....
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome
de Jose Garcia Ribas Filho
Enviada em: quinta-feira, 22 de novembro de 2007 08:42
Para: [email protected]
Assunto: Re: [sqlwin] Mover linhas da table
Augusto,
Tente os comandos SalTblCopyRows e SalTblPasteRows.
Espero ter ajudado.
Garcia.
Em 22/11/07, Augusto < <mailto:[EMAIL PROTECTED]>
[EMAIL PROTECTED]> escreveu:
Bom dia a todos;
Alguém conhece alguma maneira de mover linhas dentro de uma table?? O que
estou precisando é mover uma linha para cima ou para baixo quando o usuário
clicar em um botão...
Agradeço qualquer ajuda....
_____
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.16.3/1144 - Release Date: 21/11/2007
16:28
