Veri Tabanına gerek duyulmadan
DBGrid içindeki tutar sütununun toplamını nasıl alırım.
Toplama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Toplama
DataTable üzerinde calculated field eklemek mümkün diye hatırlıyorum. Örnek: http://www.componentace.com/calculated-field-delphi.htm
Re: Toplama
Anladığım kadarıyla kolon toplamı almak istiyorsunuz. Veri tabanı olamadan bunu yapmanın yolu bir döngü ile ilgili kolon satırların değerlerini toplamak olacaktır.
Eğer ücretli DevExpress bileşenlerini kullanıyor iseniz Summary özelliğini kullanarak otomatik toplam aldırabilirsiniz. Ancak bu da arka planda yukarıdaki gibi bir döngü içinde işlemi gerçekleştirecektir.
Manuel olarak toplam almak için aşağıdaki gibi bir yöntem izleyebilirsiniz:
Kullanimi aşağıdaki gibi olacaktır:
Ekte örnek bir uygulama bulabilirsiniz.
Eğer ücretli DevExpress bileşenlerini kullanıyor iseniz Summary özelliğini kullanarak otomatik toplam aldırabilirsiniz. Ancak bu da arka planda yukarıdaki gibi bir döngü içinde işlemi gerçekleştirecektir.
Manuel olarak toplam almak için aşağıdaki gibi bir yöntem izleyebilirsiniz:
Kod: Tümünü seç
function GetSum(Field: TField): Double;
var
Mark: TBookmark;
begin
if Field.DataSet.State <> dsBrowse then Exit(-1);
Result := 0;
if Field.DataSet.RecordCount = 0 then Exit();
Mark := Field.DataSet.GetBookmark();
Field.DataSet.DisableControls();
try
Field.DataSet.First();
while not Field.DataSet.Eof do
begin
Result := Result + Field.AsFloat;
Field.DataSet.Next();
end;
finally
try
Field.DataSet.GotoBookmark(Mark);
except
end;
Field.DataSet.EnableControls();
end;
end;
Kod: Tümünü seç
Toplam := GetSum(ClientDataSet1.Fields[0]);
- Dosya ekleri
-
- kolontoplami.rar
- (5.92 KiB) 46 kere indirildi
-
- Üye
- Mesajlar: 48
- Kayıt: 15 May 2009 12:16
Re: Toplama
sevgili ertank kardeşim kod işimi gördü ancak rar dosyası arşivi bozuk açılmadı uygulamayı görmek isterim. teşekkürler.
Re: Toplama
WinRar versiyon 5.0 veya sonrası ile deneyin lütfen.