delphi4arab منتديات دلفي للعرب

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

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

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

جرب :

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

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

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

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

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

و الله يا أخي لم أفهم قصدك جيدا. و لكن المثال الذي أرفقتك إياه يحتوي على تعليمة إدراج المعطيات في الـ 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;

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

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

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

هنا :

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

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

PHP كود :
ADOQuery1.Edit;
  ADOQuery1.FieldByName('champ').Value := Som;
      ADOQuery1.Post;
      ADOQuery1.Next; 

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

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

Big Grin

لجمع عمود

كود :
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;

dihdih

h-farid

dihdih

h-farid

dihdih

h-farid

dihdih

dihdih

khalmoh1971