Desculpe gente.
Depois de muito tempo descobri uma solu��o para a d�vida abaixo.
Na rotina de excluir coloquem isso:
Set n_new_row = TBL_MinRow
If SalTblFindNextRow( tblDetalhe, n_new_row, ROW_Selected, 0 )
Call SalTblDeleteRow ( hWndForm, n_new_row, TBL_Adjust )
Set b_acha_linha = SalTblFindNextRow ( tblDetalhe, n_new_row, 0, 0 )
While b_acha_linha = TRUE
Call SalTblFetchRow ( tblDetalhe, n_new_row )
Set colProcedimentoDetalheID = colProcedimentoDetalheID - 1
Set b_acha_linha = SalTblFindNextRow ( tblDetalhe, n_new_row, 0, 0 )
Else
Call SalMessageBox( '� necess�rio selecionar a linha que deseja
excluir.', 'Suporte Operacional', MB_IconExclamation )
Essa d�vida � antiga mas resolveu meu problema.
�lvaro, teste e verifique se � isso do que vc realmente necessita.
Vinicius.
----- Original Message -----
From: Alvaro Roberto
To: Lista Centuta
Sent: Thursday, October 18, 2001 12:31 PM
Subject: [sqlwin] Re: Table Window
Ola Lista,
Estou com o seguinte problema preciso organizar o item da minha table
exemplo:
tenho uma table com 2 colunas e 4 linhas, na 1 linha esta o item 1, na
segunda o 2 e assim at� a quarta.
So que na table mostro para o usuario os itens no rowreader ou seja, quando
ele excluir um quero
que minha table organize os itens.
exemplo
1
2
3 ( o usuario excluiu este item )
4
1
2
3
Programa��o:
No On SAM_CreateComplete da table:
Call SalTblDefineRowHeader( tbl1, '', 25, TBL_RowHdr_Visible, colitv_seq )
Para ordenar os itens
Call SalTblSortRows( hWndForm, SalTblQueryColumnID( colitv_seq ),
TBL_SortIncreasing )
exemplo:
antes da funcao
1
2
3
4
depois
0
1
2
Pessoal descuple se nao fui muito claro.
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
