Aynı kolonundaki sayıları birbiri ile çarpma (Çözüldü)

[orhancc]

Kod: Tümünü seç

tabloToplanacakAlan.value

sen bunu aynen yazmıyorsun umarım. Bu benim yazdığım örnek bunun yerine senin alanın adı neyse onu yazcaksın

[polikarp]

Yok tabiki öyle yazmıyorum ama sadece sütun adı.value şeklinde yazınca olmadı şöyle yaptım;

Kod: Tümünü seç

toplamlar:= toplamlar * qry1.fieldbyname('sütunadı').Value;

Bunda bir sorun varmı? çünkü hala aynı son hatayı alıyorum.

[polikarp]

Aynı konuda arama yapabilecek olanlar için yardımcı olur sanırım.

Kod: Tümünü seç

var
toplamlar:Real; // real sayı
  i:integer;
begin
toplamlar := 1;
qry1.first;
for i:=0 to qry1.RecordCount-1 do
begin
toplamlar:= toplamlar * qry1.fieldbyname('çarpılacakalan').Value;
qry1.next;
end;
qry2.Insert; // Sonucun diğer tabloya yazılması.
qry2.Edit;
qry2.FieldByName('çarpımın_yazılacağı_alan').Value:=toplamlar;
qry2.Post;

[orhancc]

burada neden hem insert hem edit diyorsun ? yeni kayıt mı edeceksin değişiklik mi yapacaksın.

[polikarp]

Evet onu yanlış yapmışım yeni kayıt açıp yazacak. Teşekkürler.