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

[medreg]

اخي Rover
مشكور وإذا سمت لي اود لو شرحت لي هذا الكود

كود :

IF FieldValues['RB_SB_CurrValue'] = Null Then GetStr:='' Else GetStr:= FieldValues['RB_SB_CurrValue'];

وخاصة إضافتك لكلمة _CurrValue
ماذا تعني هذه وما دورها

[medreg]

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

احذف كل كود BitBtn1Click ماعدا table1.Post; ]تصبح كمايلي:

PHP كود :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

    table1.Post;

end; 


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

PHP كود :

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; 


مشكور أخي chehrour

اللهم زيدنا علما
بارك الله فيكم جميعًا وجعل الله كل اعمالكم في ميزان حسناتكم

[medreg]

أخي Chehrour
لقد الفت انتباهي بوجود هذان الملفان
PDOXUSRS.LCK
PARADOX.LCK
ما ضرورة وجودهما وكيف ينشئان
وفي حالة ما إذا كنت استعمل قاعدة البيانات ABSOLUTE
ما هي الملفات المعوضة عن هذه

[chehrour]

السلام عليكم اخي medreg كذلك اعرف كيف اتت هذه الملفات ربما الاخوة يفيدونا
اما فيما يخص استعمال قاعدة البيانات ABSOLUTE
فادهب الى الرابط التالي

http://www.startimes2.com/f.aspx?t=15008650