Fórum Busca usando FindKey em uma tabela, não consigo1 #156979
30/04/2003
0
Vou tentar ser bastante explícito:
Quando faço uma busca usando o findkey, procedo da seguinte maneira:
if TblDespesa2.FindKey([DBComboBox3.Text]) then
// se o texto digitado no DBCombobox3 for igual ao da Tabela TblDespesa2 então... Joga os valores da tabela para os devidos campos abaixo....
Begin
DBEdit9.Text := TblDespesa2.fieldbyname(´Conta_Debito´).asString;
DBEdit8.Text := TblDespesa2.fieldbyname(´Conta_Credito´).asString;
DBEdit10.Text := TblDespesa2.fieldbyname(´HP´).asString;
end; //Dessa maneira está beleza. Funciona!
Porém... Quando utilizo assim:
if DmGlobal.TblCadLaudo.FindKey([DBComboBox3.Text]) then
DBRichEdit1.Text := DmGlobal.TblCadLaudoDescricao.String;
//Jogando os Valores da Table TblCadlaudo(Que é do tipo Formated Memo definido no Database Desktop - Paradox) para um DbRichEdit.
o texto aparece todo maluco...
Porque sera ???
Me ajudem por favor... :cry: :cry: :cry: :cry:
Quando faço uma busca usando o findkey, procedo da seguinte maneira:
if TblDespesa2.FindKey([DBComboBox3.Text]) then
// se o texto digitado no DBCombobox3 for igual ao da Tabela TblDespesa2 então... Joga os valores da tabela para os devidos campos abaixo....
Begin
DBEdit9.Text := TblDespesa2.fieldbyname(´Conta_Debito´).asString;
DBEdit8.Text := TblDespesa2.fieldbyname(´Conta_Credito´).asString;
DBEdit10.Text := TblDespesa2.fieldbyname(´HP´).asString;
end; //Dessa maneira está beleza. Funciona!
Porém... Quando utilizo assim:
if DmGlobal.TblCadLaudo.FindKey([DBComboBox3.Text]) then
DBRichEdit1.Text := DmGlobal.TblCadLaudoDescricao.String;
//Jogando os Valores da Table TblCadlaudo(Que é do tipo Formated Memo definido no Database Desktop - Paradox) para um DbRichEdit.
o texto aparece todo maluco...
Porque sera ???
Me ajudem por favor... :cry: :cry: :cry: :cry:
Giovani
Curtir tópico
+ 0
Responder
Posts
01/05/2003
Mauromarques
Pelo que pude perceber tu estas utilizando um DBRichEdit para mostrar os dados de uma tabela. O Mais fácil e prático é lincar o campo dataset e datasource na tabela que contem o campo descrição. Os caracteres que aparecem são os caracteres de formatação do texto.
Responder
Gostei + 0
01/05/2003
Adilsond
Experimente mudar para:
DBRichEdit1.Text := DmGlobal.TblCadLaudoDescricao.Value;
DBRichEdit1.Text := DmGlobal.TblCadLaudoDescricao.Value;
Responder
Gostei + 0
01/05/2003
Giovani
Experimente mudar para:
DBRichEdit1.Text := DmGlobal.TblCadLaudoDescricao.Value;
Tentei assim e continua aparecendo os caracteres formatados. Porque será? esta dúvida permanece a 1 semana. de qualquer forma valeu... Se tiver mais alguma dica, agradeço.
Quanto a lincar os campos, é preciso lincá-los na tabela atual onde serão gravados os dados. O finKey seria para facilitar, pois quando o camarada escolhesse o tipo de exame, automaticamente seria mostrado o laudo inteiro no DbRichEdit.
Valeu...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)