IMPLEMENTO EM MSFLEXGRID

USUARIO.EXCLUIDOS 20/04/2007 14:59:28
#213029

Olá Pessoal, preciso de uma ajudazinha...é o seguinte:

Tenho que carregar um MSFLEXGRID apartir de um select, porém,
que a cada mudança de data preciso inserir uma linha com o dia da semana
conforme o exemplo abaixo.


Exemplo

|DATA |HISTORICO | VALOR ||19/04/07 |Lançamento A | 100,00|
|19/04/07 |Lançamento C | 100,00|
|19/04/07 |Lançamento x | 100,00|
| |QUINTA-FEIRA | | |20/04/07 |Lançamento 1 | 100,00|
|20/04/07 |Lançamento 10 | 100,00|
|20/04/07 |Lançamento W | 100,00|
|20/04/07 |Lançamento 5 | 100,00|
|20/04/07 |Lançamento p | 100,00|
| |QUINTA-FEIRA | |



Já tentei paginar o select por data... blz + não consegui colocar no FlexGrid...
Algum teria aí alguma ideia de como conseguir isso

Agradeço qualquer ajuda
HUGOSSOUZA 20/04/2007 15:24:12
#213041 Resposta escolhida
tenta assim:

salva a data em uma variavel
quando a ultima data inserida for diferente da data atual vc insere essa linha

ex:

dim data as date

if not rs.eof then
data = rs!data
do while not rs.eof
   if cvdate(data) <> cvdate(rs!data) then
      'código para inserir uma nova linha aqui
   end if
      
   'seu código aqui

   data = rs!data
   rs.movenext
loop
end if
USUARIO.EXCLUIDOS 20/04/2007 18:14:35
#213089
HugosSouza, Blz...

Isso eu entendi mais como efetivamente inserir a linha no FlexGrid ao final de cada data e ainda continuar o preechimento do FlexGrid até o fim do recordset. Pois eu posso ter varias dadas no select. O que eu não consigo e inserir a linha entende.

Mesmo assim agradeço sua ajuda e se vc poder complementer aí fica 10.

Abrço


JGD
USUARIO.EXCLUIDOS 22/04/2007 09:07:47
#213209
Então pessoal !!!

Ainda não consegui... Eu até consigo incluir a linha na grade(FlexGrid)
mas ela sempre aparece embaixo de tudo. Será que não tem mesmo como ???

E se eu colocar o recordset em um array tratar os dados no array e depois
listar no FlexGrid ?! Não ficaria uma trabalho meio burro !?

Agradeço qualquer ajuda !

JGD
HUGOSSOUZA 23/04/2007 08:57:15
#213285
desculpa a demora para responder

tenta assim.


dim data as date

if not rs.eof then
data = rs!data
grade.rows = rs.recordcount
do while not rs.eof
   if cvdate(data) <> cvdate(rs!data) then
      grade.row = grade.row + 1 'se a data for diferente vai adicionar uma nova linha
      'código para inserir uma nova linha aqui
      grade.TextMatrix(grade.Row , 1) = "Quinta-Feita"
      grade.TextMatrix(grade.Row , 2) = data
      grade.TextMatrix(grade.Row , 3) = "Lançamento 1" 
   end if

   grade.row = grade.row + 1
     
   'aqui você coloca seu código normal


   data = rs!data
   rs.movenext
loop
end if

entendeu?
Tópico encerrado , respostas não são mais permitidas
Voltar