ربط 3 جداول بــ dbgrid واحد

[nabilkeb]

كود :

procedure TForm2.Button3Click(Sender: TObject); begin ABSQuery1.Close; ABSQuery1.SQL.Text:='select sname,schoolname from s,school ' ; DBGrid1.DataSource:=DataSource4; ABSQuery1.Open; end;

- تلاحظ معي أخي أن بمشروعك يوجد أربعة عناصر : ثلاثة AbsTable و ABSQuery1 ، كل عنصر من هذه الأربعة مربوط بــ DataSource خاصة به ، و نحن نربط DBGrid1 مع احداهما (مع DataSource1+2+3+4) من حين إلى آخر ، في هذه الحالة يمكنك وضع DataSource واحدة فقط بالمشروع و تربط DBGrid1 بها في كل الأحوال (خاصية DataSource للــ DBGrid1 تجعلها: DataSource1).
و لعرض محتويات AbsTable1 عوضا عن الكود الذي و ضعناه سابقا مع كثرة DataSource

كود :

DBGrid1.DataSource:=DataSource1;

نضع:

كود :

DataSource1.DataSet:= AbsTable1;

إذا كان هذا مهما راجع المرفق ___


بالتوفيق أخــي