كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج

[dihdih]

السلام عليكم و رحمة الله و بركاته

ما هي التعليمة التي تجعل برنامجي يملء لي عمود في DBGrid
و الصورة توضح المقصود بشكل احسن و الله المستعان و بالتوفيق

[h-farid]

و عليكم السلام و رحمة الله

جرب :

كود :

Table1.fieldbyname('Champ').asinteger:=I;

[dihdih]

التعليمة يأخي الكريم غير صحيحة جربت و لم تعمل معي
بارك الله على الاهتمام

[h-farid]

أخي جرب هذا البُريمج و حاول دراسة كوده المصدري, ثم إن لم يف بالغرض فأوضح سؤالك أكثر كي نتمكن من فهمه.

[dihdih]

اخي بارك الله فيك على الاهتمام و جعله الله في ميزان حسناتك ان شاء الله و جزاك الله الف خير
اخي الكريم اخدت المثال الموجود في الصورة لتوضيح فقط ما أحببت الوصول اليه
أخي عندي dbgrid مربوط بقاعدة بيانات و لكن الحقل المراد ملئه لا يوجد في قاعدة البيانات
جربت البرنامج على ListBox1 من اجل ملء ListBox1 و دالك باستعمال التعليمة
; (ListBox1.Items.Add(Som
كانت النتيجة ايجابية كما توضح الصورة

كل ما ابحت عنه هو تعليمة تجعلني املء عمودdbgrid بالقيم الثي ثم حسابها بالبرنامج

[h-farid]

و الله يا أخي لم أفهم قصدك جيدا. و لكن المثال الذي أرفقتك إياه يحتوي على تعليمة إدراج المعطيات في الـ DBGrid

هنا :

For I := 0 to Memo1.Lines.Count-1 do
begin
ADOTable1.Edit;
ADOTable1.Append;
ADOTable1.FieldByName( 'f1' ).AsString := Memo1.Lines[i];
ADOTable1.Fields[2].AsString := Memo1.Lines[i];
ADOTable1.Post;
end;

إذا كان سؤال غير هذا, ارفقك مشروعك لنرى المشكل عن كثب.

[dihdih]

memo استعملتها فقط للتأكد انا البرنامج يعمل و يخرج القيم المراد حسابها
انا ابحت فقط عن تعليمة
Instruction pour afficher les valeurs dans un Champ d'un DBGRID

[dihdih]

و الله يا أخي لم أفهم قصدك جيدا. و لكن المثال الذي أرفقتك إياه يحتوي على تعليمة إدراج المعطيات في الـ DBGrid

هنا :


إذا كان سؤال غير هذا, ارفقك مشروعك لنرى المشكل عن كثب.

بارك الله فيك اخي و الله يأخي ما قولته صحيح %100 و لكني كنت خاطئ في تكوين قاعدة البيانات

PHP كود :

ADOQuery1.Edit;
  ADOQuery1.FieldByName('champ').Value := Som;
      ADOQuery1.Post;
      ADOQuery1.Next; 


الشكر موصول لكل من ساعدني في اجاد الله و جزاكم الله ألف خير

ان الله لا يضيع اجر المحسنيين

[khalmoh1971]

لجمع عمود

كود :

procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet); var bm: TBookmark; Total: real; begin bm := IBDataSet1.GetBookmark; IBDataSet1.DisableControls; try Total := 0.0; IBDataSet1.First; while not IBDataSet1.Eof do begin Total := Total + IBDataSet1COST.AsCurrency; IBDataSet1.Next; end; // Total:= format Edit1.Text := (FormatFloat('0.000 جنية', Total)) ; finally IBDataSet1.GotoBookmark(bm); IBDataSet1.EnableControls; end;