Fórum rotina #207846
20/01/2004
0
Form2.DBRichEdit1.Clear; //limpa o dbrichedit1
DataModule2.busca.First; //busca é a consulta sql
while not DataModule2.busca.eof do
begin
Form2.DBRichEdit1.DataSource := DataModule2.DataSource1;
DataModule2.busca.Next;
end;
Form2.ShowModal;
Mrmario
Curtir tópico
+ 0Posts
20/01/2004
Lucas Silva
query1.Open; query1.Last; query1.First;
se não der certo me dá o toque que eu te ajudo!
Lucas!
Gostei + 0
20/01/2004
Mrmario
Form2.DBRichEdit1.Clear;
DataModule2.busca.First;
while not DataModule2.busca.eof do
begin
Form2.DBRichEdit1.DataSource := DataModule2.DataSource1;
DataModule2.busca.Next;
end;
Form2.ShowModal;
Gostei + 0
21/01/2004
Djjunior
se eu estiver certo, tente dar um refresh na tela logo depois do next seria algo do tipo:
DBRichEdit1.DataSource := DataModule2.DataSource1;
with DataModule2.busca do
begin
while not eof do
begin
next;
Form2.Refresh;
end;
end;
Form2.ShowModal
Gostei + 0
22/01/2004
Djjunior
a propriedade datafield está correta? se vc muda o datasource em tempo de execução não deveria mudar também o datafield?
o wordwrap está como true?
o AutoDisplay está como true?
dê uma olhada tb em HideSelection (não fragrei direito o que ele faz)
Gostei + 0
22/01/2004
Djjunior
esquece o while, e crie os botões de navegação
busca.first; //primeiro
busca.Prior; //anterior
busca.next; //próximo
busca.last; //último
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)