في حالة ربط جدول بأخر

[chehrour]

حولت

البرنامج وفمت بما يلي :

احذف كل كود BitBtn1Click ماعدا table1.Post;

تصبح كمايلي:

كود :

procedure TForm1.BitBtn1Click(Sender: TObject); begin table1.Post; end;

واضافة Table1BeforePost تصبح كمايلي

كود :

procedure TForm1.Table1BeforePost(DataSet: TDataSet); VAR a:string[3]; begin table2.Locate('RB_CD',table1RB_CD.Value,[loCaseInsensitive]); table1RB_SB.Value:=table2RB_SB.Value; a:='SP'+FloatToStr(table1SP.Value); table1MT_SP.Value:=table2.FieldValues[a]; end;

بالتوفيق