MOSTRAR ULTIMO CAMPO DE UMA MSFLEXGRID

USUARIO.EXCLUIDOS 09/09/2006 12:11:19
#170386
ae galera...
como faço para mostrar o ultimo campo de uma tabela atrvés de uma msflexgrid, pq sempre aparece o primeiro, a medida que inserimos dados continua aparecendo o primeiro.
queria que aparecesse o ultimo...
como faço?
USUARIO.EXCLUIDOS 09/09/2006 12:27:11
#170388
como vc carrega o grid??

são informações de banco de dados??

qual o banco de dados?? Access?? SQL Server??

Qual a conexão? ADO? DAO?


se possível poste o código de como vc carrega as informações no MSFlexGrid... fica mais fácil pra galera ajudar com estas perguntas respondidas.
USUARIO.EXCLUIDOS 09/09/2006 12:32:37
#170389
o banco de dados é o access e a conexão é ADO...

o código é o seguinte:

tabe_calc.Open "notas", conectar, adOpenKeyset
Do Until tabe_calc.EOF
Mfglista.TextMatrix(Mfglista.Rows - 1, 0) = tabe_calc!Numero
Mfglista.TextMatrix(Mfglista.Rows - 1, 2) = IIf(IsNull(tabe_calc!turma), Empty, tabe_calc!turma)
Mfglista.TextMatrix(Mfglista.Rows - 1, 1) = IIf(IsNull(tabe_calc!nota), Empty, tabe_calc!nota)
Mfglista.RowData(Mfglista.Rows - 1) = tabe_calc!Numero
tabe_calc.MoveNext
Mfglista.Rows = Mfglista.Rows + 1
Loop
USUARIO.EXCLUIDOS 09/09/2006 12:51:28
#170392
Cara, foi malz, mas não entendi muito bem a sua dúvida... vc gostaria de exibir os dados no grid em order decrescente seria isto??

Se sim, segue o exemplo:

             tabe_calc.Open "notas", conectar, adOpenKeyset 
            tabe_calc.movelast
            Do Until tabe_calc.BOF 
            Mfglista.TextMatrix(Mfglista.Rows - 1, 0) = tabe_calc!Numero 
            Mfglista.TextMatrix(Mfglista.Rows - 1, 2) = IIf(IsNull(tabe_calc!turma), Empty, tabe_calc!turma) 
            Mfglista.TextMatrix(Mfglista.Rows - 1, 1) = IIf(IsNull(tabe_calc!nota), Empty, tabe_calc!nota) 
            Mfglista.RowData(Mfglista.Rows - 1) = tabe_calc!Numero 
            tabe_calc.MovePrevious
            Mfglista.Rows = Mfglista.Rows + 1 
            Loop

USUARIO.EXCLUIDOS 09/09/2006 13:27:51
#170399
vlw ein marcelo...
mas eu gostaria é de exibir ao usuário o ultimo campo da tabela.
obrigado
USUARIO.EXCLUIDOS 09/09/2006 13:54:12
#170405 Resposta escolhida
Tente assim:

            tabe_calc.Open "notas", conectar, adOpenKeyset
            Do Until tabe_calc.EOF
            Mfglista.TextMatrix(Mfglista.Rows - 1, 0) = tabe_calc!Numero
            Mfglista.TextMatrix(Mfglista.Rows - 1, 2) = IIf(IsNull(tabe_calc!turma), Empty, tabe_calc!turma)
            Mfglista.TextMatrix(Mfglista.Rows - 1, 1) = IIf(IsNull(tabe_calc!nota), Empty, tabe_calc!nota)
            Mfglista.RowData(Mfglista.Rows - 1) = tabe_calc!Numero
            tabe_calc.MoveNext
            Mfglista.Rows = Mfglista.Rows + 1
            Loop
            'Seleciona a última linha
            Mfglista.Row = Mfglista.Rows - 1
            'Mostra a última linha do grid na tela (move o Scrool)
            Mfglista.TopRow = Mfglista.Rows - 1


Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 09/09/2006 14:05:19
#170410
vlw, é isto mesmoooo
Tópico encerrado , respostas não são mais permitidas
Voltar