Ajuda para desenvolver um formulario de OS? Onde esta o erro
Estou usando este código para um menu de ordem de serviços, sendo que qndo digito o código do cliente no DBEDIT39.TEXT, os DBEDIT44 e 45 são automaticamente preenchidos com os respectivos dados do cliente. Mas tem um erro neste código qndo abro a tabela. “No index currently active” Alguém saberia me dizer como corrigir este erro?
OBS: FDados= datamodule, onde guardo minhas tabelas.
TBClientes= tabela de clientes.
...
begin
FDados.TBClientes.First;
If FDados.TBClientes.FindKey([DBEdit39.Text]) then
begin
DBEdit44.text:= FDados.TBClientesRAZAOSOCIAL.value;
DBEdit45.text:= FDados.TBClientesENDERECO.value;
end;
end;
...
OBS: FDados= datamodule, onde guardo minhas tabelas.
TBClientes= tabela de clientes.
...
begin
FDados.TBClientes.First;
If FDados.TBClientes.FindKey([DBEdit39.Text]) then
begin
DBEdit44.text:= FDados.TBClientesRAZAOSOCIAL.value;
DBEdit45.text:= FDados.TBClientesENDERECO.value;
end;
end;
...
Anonymous
Curtidas 0
Respostas
Anonymous
08/03/2003
A mensagem, como é óbvio, diz que não há índice ativo. Bom, ao que parece você está usando paradox. Esse tipo de tabela exige um índice ativo para algumas operações. Então é melhor você criar pelo menos um campo autoincremento através do BDE, ou, se já tiver criado, ver se não está corrompido. Tchau.
GOSTEI 0
João Miguel
08/03/2003
Para localizar utilize a função locate();
begin
FDados.TBClientes.First;
If FDados.TBClientes.Locate(´Codigo´,DBEdit39.Text,[]) then
begin
DBEdit44.text:= FDados.TBClientesRAZAOSOCIAL.value;
DBEdit45.text:= FDados.TBClientesENDERECO.value;
end;
end;
_______________________________
Tabela.locate(Campo_Para busca,Valor,[])
Obs.
O valor tem que ser do mesmo tipo do campo da busca:
String com string
Float com float
...
Falow...
begin
FDados.TBClientes.First;
If FDados.TBClientes.Locate(´Codigo´,DBEdit39.Text,[]) then
begin
DBEdit44.text:= FDados.TBClientesRAZAOSOCIAL.value;
DBEdit45.text:= FDados.TBClientesENDERECO.value;
end;
end;
_______________________________
Tabela.locate(Campo_Para busca,Valor,[])
Obs.
O valor tem que ser do mesmo tipo do campo da busca:
String com string
Float com float
...
Falow...
GOSTEI 0