Fórum probleminha na busca #313332
16/02/2006
0
Segue abaixo o código que estou usando.
Valeu
procedure TfrmClientes.BitBtn8Click (sender: TObject);
begin
dbEdit1.datasource.dataset.first;
while not dbedit1.datasource.dataset.eof do begin
if dbEdit1.datasource.dataset.fieldbyname(´fantasia´). asString = edit1.text then
exit;
dbEdit1.datasource.dataset.next;
Brunoagbr
Curtir tópico
+ 0Posts
17/02/2006
Rjun
Gostei + 0
17/02/2006
Brunoagbr
Gostei + 0
17/02/2006
Rjun
procedure TfrmClientes.BitBtn8Click (sender: TObject); begin Query1.Locate(NomeDoCampo, edit1.Text, [loCaseInsentive]); end;
Gostei + 0
17/02/2006
Paullsoftware
coloca um TEdit e um Tbutton...
duplo clique no tButton e vai o código
SuaTabela.Locate(´Nome´,Edit1.Text,[loPartialKey]);
acho que só isso é suficiente...
Gostei + 0
17/02/2006
Brunoagbr
Gostei + 0
17/02/2006
Paullsoftware
procedure TfrmClientes.BitBtn8Click (sender: TObject); begin Query1.Locate(NomeDoCampo, edit1.Text, [loCaseInsentive]); end;
kramba, ao mesmo tempo!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)