طريقة حساب في جدول dbgrid

[mandi]

السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

[ramiparadox]

السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

---

السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحلقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

lable1.caption:=:=IntToStr(somme);

[mandi]

السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

---

السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحلقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

lable1.caption:=:=IntToStr(somme);

---

شكرا جزيلا أخي

[ramiparadox]

السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

---

السلام عليكم
طرييقة حساب مجموع القيم الموجود في جدول dbgrid
يعني عندي qte_s
وتحتوي على عدة مسجلات
والمجموع يضهر على label

أستخدم ADOQuery

وشكرا

في حالة ماكان qte_s من نوع integer  استعمل الحلقة التكرارية

////////////
var  somme:integer; 
begin
somme:=0;
ABStable1.first;
while not(ABStable1.Eof) do
begin
somme:=somme+ABSTable1.FieldByName('qte_s').AsInteger;
ABStable1.next;
end;
 until   ABStable1.Eof=true;
end;
//////////////////

اضن ان الكود يعمل مع adotable
merci

lable1.caption:=:=IntToStr(somme);

---

شكرا جزيلا أخي

هل افادك الكود