فلترة جدول ب ID جدول اخر - نسخ قيمة CELL لاخرى

[Delphi4Us]

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

اولا مالم افهمه وغير منطقي هو لماذا اداة الفلترة هي نفسها التي تضع فيها قيمة كالتالي بالحدث المذكور

كود :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState); begin form1.Edit1.Text:= form1.DBGrid1.DataSource.DataSet.FieldByName('id_r').asstring; form1.Label3.Caption:= form1.DBGrid1.DataSource.DataSet.FieldByName('id_r').asstring; end;

وفي حدث الاداة

كود :

procedure TForm1.Edit1Change(Sender: TObject); begin if form1.Edit1.Text<>'' then   begin       ABSTable2.Active:=true;       ABSTable2.Filtered:=false;       ABSTable2.Filter:='id_r='+''''+Edit1.Text+''''+'';       ABSTable2.Filtered:=true;   end   else   ABSTable2.Active:=false; end;

اذا اردت ان تضع قيمة حقل عندما تنتقل الى سجل جديد دائما استخدم الحدث التالي:

كود :

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet); begin end;

بالنسبة الى جمع قيمة حقلين في حقل جديد استخدم الحقل التالي:

كود :

procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet); begin end;

تحتاج الى اضافة حقل بالاداة DataSet من نوع Calculate واسناد القيمة البه بالحدث السابق
ليس لدي قاعدة البيانات التي تستخدمها والا لكنت عدلت المثال