22-12-2009, 11:57 PM
بالنسبة للنمودج المرفق الثاني ، لا يعاني من نفس المشكل ، ملف قاعدة البيانات سليم ، القضية برمجية فقط .
أولا اضافة السجلات سليمة و عادية جدا (على غرار المشكل المطروح أولا)
ثانيا ليست نفس الرسالة.
كتأكيد فقط على هذا الكلام (فكرة فقط، لست أعرف طبيعة و ماهية البرنامج) راجع الكووود
راجع ملفك المرفق بعد التعديل. (أين الإشكال ؟)
بالتوفيق
أولا اضافة السجلات سليمة و عادية جدا (على غرار المشكل المطروح أولا)
ثانيا ليست نفس الرسالة.
كتأكيد فقط على هذا الكلام (فكرة فقط، لست أعرف طبيعة و ماهية البرنامج) راجع الكووود
كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
if not table1.IsEmpty then if not table2.IsEmpty then
begin
if ( table1.FindKey([table2.FieldByName('N_bon')])) and ( table2.FindKey([table1.FieldByName('N_bon')]))
then begin
table2.Delete; table1.Delete; end else showmessage('hhhh');
end;
end;راجع ملفك المرفق بعد التعديل. (أين الإشكال ؟)
بالتوفيق