aynı tablodaki fieldları toplayıp edit e aktarma

[mkokluce]

axcces veri tabanı kullandım tablo içinde toplam1, toplam5, toplam10, toplam20, toplam50, toplam100 alanları var bunların hepsini edite toplayıp aktarmak istiyorum. Yardımcı olursanız sevinirim.

[ikutluay]

şakamı bu?

toplam:=tblxtoplam1.asinteger+xxxxxxx...

editx.text:=inttostr(toplam)

[Battosai]

Sorunun cevabı basit...bu mevzuda çok soru var biraz arasan bulacaksın cevabı.Maksat Aynı sorular tekrarlanmasın...

[ikutluay]

Sorunun cevabı basit...bu mevzuda çok soru var biraz arasan bulacaksın cevabı.Maksat Aynı sorular tekrarlanmasın...

sanırım basittende öte ama kodu yazmış olduk bir kere

[mkokluce]

sizin için kolay benim için zor çünkü acemnin acemisiyim neyse teşekkürler sağolun.

[ikutluay]

değerli kardeşim;

seni küçümsediğimizi yada dalga geçtiğimizi düşünme ama burdaki bir çok kişide en az bir kaç tane delphi kitabı vardır. bu gibi şeyler temel seviye bilgi gerektirirler.

bir kitap edin mutlaka. bende 25 ten fazla para verip aldığım delphi kitabı; 50-60 civarıda pdf kitap var. yeri geliyor onlarada bakıyoruz. param yok öğrenciyim diyorsan forumun offline sürümünü indir oku.

[akuyumcu63]

değerli kardeşim;

bahsettiğin pdf formatındaki kitaplardan faydalanma şahsımız varmıdır acaba
eğer bir sakıncası yoksa email adresim akuyumcu63@gmail.com gönderirseniz çok memnun olurum. kolay gelsin

[adelphiforumz]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  GenelToplam:Integer;
begin
  GenelToplam := 0;
  for i := 1 to (ADOQuery1.FieldCount - 1) do
    if Copy(ADOQuery1.Fields[i].DisplayName, 1, 6) = 'toplam' Then
      GenelToplam := GenelToplam + ADOQuery1.Fields[i].Value;
end;