erro ao usar locate !!!!!!!!!!!!!!!!!!
Tenho a seguinte instrução rodando em um formulário :
#
If RGpesquisaServico.ItemIndex = 0 then
begin
If DMtables.IBQservicos.Locate(´CodigoServico´,EDTpesquisaServico.Text,[loCaseInsensitive,loPartialKey]) then
begin
EDTpesquisaServico.Text := ´´;
EDTpesquisaServico.SetFocus;
end
else
begin
ShowMessage(EDTpesquisaServico.Text + ´ NÃO CADASTRADO !´);
EDTpesquisaServico.Text := ´´;
EDTpesquisaServico.SetFocus;
end;
Porem ao copiar para outro formulário o mesmo apresenta a seguinte
linha de ERRO:
[Error] gerenciaServicos.pas(155): Undeclared identifier: ´loCaseInsensitive´
Gostaria de instruções para corrigilo, estou usando INTERBASE, sem indice
para o CÓDIGO e DESCRIÇÃO.
Marcelo Andrade
Favor postar o título em minúsculas
Zoom
#
If RGpesquisaServico.ItemIndex = 0 then
begin
If DMtables.IBQservicos.Locate(´CodigoServico´,EDTpesquisaServico.Text,[loCaseInsensitive,loPartialKey]) then
begin
EDTpesquisaServico.Text := ´´;
EDTpesquisaServico.SetFocus;
end
else
begin
ShowMessage(EDTpesquisaServico.Text + ´ NÃO CADASTRADO !´);
EDTpesquisaServico.Text := ´´;
EDTpesquisaServico.SetFocus;
end;
Porem ao copiar para outro formulário o mesmo apresenta a seguinte
linha de ERRO:
[Error] gerenciaServicos.pas(155): Undeclared identifier: ´loCaseInsensitive´
Gostaria de instruções para corrigilo, estou usando INTERBASE, sem indice
para o CÓDIGO e DESCRIÇÃO.
Marcelo Andrade
Favor postar o título em minúsculas
Zoom
Marceloandrade
Curtidas 0
Respostas
Joilson_gouveia
13/04/2003
Verifique se não estaria faltando a [b:52d79cebd5]Unit DB [/b:52d79cebd5]na cláusula Uses desse formulário...
GOSTEI 0
Dj.ribeiro
13/04/2003
acrescenta db na uses
GOSTEI 0