Fórum Erro no Filtro de uma tabela #144068
10/03/2003
0
Verifiquem esta rotina e digam se ela está errada.
procedure TfrmBaixaEquip.GravarClick(Sender: TObject);
begin
Dm.Indice.Last;
Dm.Lancha.Edit;
Dm.LanchaStatus.AsString:=´S´;
Dm.Lancha.Post;
Dm.HistSaida.Filtered:=false;
Dm.HistSaida.Filter:=´Lancha = ´´+ dblookupcombobox1.text + ´´´;
Dm.HistSaida.Filtered:=true;
Dm.histsaida.First;
while not (Dm.histsaida.Eof) do begin
dm.HistSaida.edit;
dm.HistSaidaFLAG.asstring:=´F´;
Dm.HistSaidaDOLAR.asbcd:=Dm.IndiceVALOR.asbcd;
Dm.HistSaida.Post;
end;
Dm.HistSaida.Close;
Dm.HistSaida.Open;
Dm.Lancha.Close;
Dm.Lancha.Open;
end;
no Filered := true, dá esse erro abaixo escrito.
Project Noah.exe raised exception class
EIBInterBaseError with message ´Dynamic
SQL Error
SQL error code =-206
Column Unknown
3659CB520´. Process Stopped. Use step or Run to continue.
Este 3659CB520, é o texto da lookupcombobox1(o filtro). O q está errado
nesta rotina? A rotina de baixo, semelhante a esta, funciona, com a mesma tabela.
procedure TfrmSaida.Edit1Exit(Sender: TObject);
begin
Dm.HistSaida.Open;
Dm.HistSaida.Filtered:=False;
Dm.HistSaida.Filter:=´Requisicao = ´+edit1.text;
Dm.HistSaida.Filtered:=True;
end;
esta funciona muito bem. O q devo fazer? Onde está o erro?
mesma tabela.
procedure TfrmBaixaEquip.GravarClick(Sender: TObject);
begin
Dm.Indice.Last;
Dm.Lancha.Edit;
Dm.LanchaStatus.AsString:=´S´;
Dm.Lancha.Post;
Dm.HistSaida.Filtered:=false;
Dm.HistSaida.Filter:=´Lancha = ´´+ dblookupcombobox1.text + ´´´;
Dm.HistSaida.Filtered:=true;
Dm.histsaida.First;
while not (Dm.histsaida.Eof) do begin
dm.HistSaida.edit;
dm.HistSaidaFLAG.asstring:=´F´;
Dm.HistSaidaDOLAR.asbcd:=Dm.IndiceVALOR.asbcd;
Dm.HistSaida.Post;
end;
Dm.HistSaida.Close;
Dm.HistSaida.Open;
Dm.Lancha.Close;
Dm.Lancha.Open;
end;
no Filered := true, dá esse erro abaixo escrito.
Project Noah.exe raised exception class
EIBInterBaseError with message ´Dynamic
SQL Error
SQL error code =-206
Column Unknown
3659CB520´. Process Stopped. Use step or Run to continue.
Este 3659CB520, é o texto da lookupcombobox1(o filtro). O q está errado
nesta rotina? A rotina de baixo, semelhante a esta, funciona, com a mesma tabela.
procedure TfrmSaida.Edit1Exit(Sender: TObject);
begin
Dm.HistSaida.Open;
Dm.HistSaida.Filtered:=False;
Dm.HistSaida.Filter:=´Requisicao = ´+edit1.text;
Dm.HistSaida.Filtered:=True;
end;
esta funciona muito bem. O q devo fazer? Onde está o erro?
mesma tabela.
Paulo
Curtir tópico
+ 0
Responder
Posts
10/03/2003
Anonymous
BOA NOITE BOM PRIMEIRAMENTE PARA PODER SER UM BOM PROGRAMADOR TEMOS QUE USAR OS RECURSOS DA FERRAMENTA.
ENTAO COLOQUE UM BREAK POINT SOBRE O CODIGO E VAI DEBUGANDO SEU BROCO DE COMANDO, E DIFICIL SABER SE ESTA CERTO OU NÃO POR QUE NÃO SEI A LOGICA DO SEU SISTEMAS, MAS SE QUISER TIRAR ALGUMAS DUVIDAS TRABALAHO COM DELPHI DEZ DA VERSÃO 1 E GOSTO DE ENSINAR PASSAR MEUS CONHECIMENTOS PARA OUTRAS PESSOAS QUE SE INTERESSAM PELO DESENVOLVIMENTO DE SISTEMAS.
PODE ME LIGAR SERGIO 81237860 ABRAÇOS.
ENTAO COLOQUE UM BREAK POINT SOBRE O CODIGO E VAI DEBUGANDO SEU BROCO DE COMANDO, E DIFICIL SABER SE ESTA CERTO OU NÃO POR QUE NÃO SEI A LOGICA DO SEU SISTEMAS, MAS SE QUISER TIRAR ALGUMAS DUVIDAS TRABALAHO COM DELPHI DEZ DA VERSÃO 1 E GOSTO DE ENSINAR PASSAR MEUS CONHECIMENTOS PARA OUTRAS PESSOAS QUE SE INTERESSAM PELO DESENVOLVIMENTO DE SISTEMAS.
PODE ME LIGAR SERGIO 81237860 ABRAÇOS.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)