hata nerede acaba çalışmıyo

[zaxacm]

ad ve br alanlarının olduğu tabloma var.
suicombobox2 den seçtğim ürünün birimi edit2 d gözüksün istiyorum ama çalışmıyor

procedure Tfmalalis.suiComboBox2Change(Sender: TObject);
begin
while not fana.ADOQuery3.eof do begin
if suicombobox2.Text=fana.ADOQuery3.fieldbyname('ad').asstring then
edit2.text:=fana.ADOQuery3.fieldbyname('br').asstring;
fana.ADOQuery3.next ;
end;
end;

[MercilessTurk]

Bu kod işini görür sanırım. dbedit kullanman gerekecek dbedit in datafield ını br yapacaksın.

Kod: Tümünü seç

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select * from TABLO where ad="'+combobox1.Text+'"');
ADOquery1.Open;
end;

[ylmz]

merhaba,

döngüye girmeden ilk kayıda gidiyormusun.

fana.ADOQuery3.first;

[zaxacm]

procedure Tfmalalis.suiComboBox2Change(Sender: TObject);
begin
while not fana.ADOQuery3.eof do begin
fana.ADOQuery3.first ;
if suicombobox2.Text=fana.ADOQuery3.fieldbyname('ad').asstring then
edit2.text:=fana.ADOQuery3.fieldbyname('br').asstring;
fana.ADOQuery3.next ;
end;
end;

hiçbir işlem yapmıyor

[hbahadir]

çalışmaması gayet normal, döngü içinde hep ilk kayda gönderiyorsun.

Kod: Tümünü seç

procedure Tfmalalis.suiComboBox2Change(Sender: TObject); 
begin 
 fana.ADOQuery3.first ; 
 while not fana.ADOQuery3.eof do 
 begin 
  if suicombobox2.Text=fana.ADOQuery3.fieldbyname('ad').asstring then 
     edit2.text:=fana.ADOQuery3.fieldbyname('br').asstring; 
  fana.ADOQuery3.next ; 
 end; 
end; 

[zaxacm]

Teşekkürler..