Abrir formulário a partir de linha selecionada no DBGrid

Delphi

17/10/2005

Boa tarde,

Estou com mais um problemão para resolver urgente:

No Paradox, a partir de um duplo clique em uma linha do DBgrid(que trazia o resultado de uma query) eu fazia assim, para trazer o formulario com a informação referente aquela linha:

fmProcura.Close;
if (dmDados.tbClientesCli_codigo.Value > 0) then
dmDados.tbClientes.FindKey([fmProcura.Query.FieldByName(´Cli_Codigo´).AsInteger])
else
dmDados.tbClientes.first;

e no Firebird , alguém saberia me dizer como ficaria este mesmo código?

Também se alguém tem alguma solução melhor, por favor me dê uma dica.

Um abraço

José


Dli

Dli

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

17/10/2005

Tente com o LOCATE...


fmProcura.Close; 
if (dmDados.tbClientesCli_codigo.Value > 0) then 
    dmDados.tbClientes.Locate(´CODIGO´,fmProcura.Query.FieldByName(´Cli_Codigo´).AsInteger,[]) 
else 
    dmDados.tbClientes.first;



GOSTEI 0
POSTAR