delphi4arab منتديات دلفي للعرب

نسخة كاملة : حساب الفرق بين جدولين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم و رحمة الله و بركاته
انا اعمل على برنامج تسيير مخزون
قاعدة البيانات المستخدة اكسس
لدي ثلات انواع من الجدوال
المشتريات  (form4 )
البيع  ( form5)
و المخزون الباقي  (6 form)

لدي مشكل

form6.adotable1.FieldValues['QTE']:=form4.adotable1.FieldValues['QTE']-form5.adotable1.FieldValues['QTE'];

عند حساس الفرق بين الجدولين المشتريات-البيع=المخزون
المشكل ياخد فقط حساب السطر الاخير فقط مثلا لدي 10 سطور  وكل سطر يمثل منتج في كل من الجدولين عند حساب الفرق فقط يحسب السطر الاخير فقط ويظهر في المخزون المنتج الاخير فقط مكرر في 10 سطور من جدول المخزون
ضع سؤالك في هذا القسم مستقبلا
عند استعمال مكونات تصفح (استغلال) قواعد البيانات فإنها (غالباً) تنتقل إلى أخر سجل في القاعدة المستعملة (أي يبدأ من الأول حتى النهاية خطوة بخطوة - المسمى في علم تصميم وبرمجة محركات قواعد البيانات بـ cursor أي المؤشر).

لذلك عليك أن تقوم باستعمال حلقة تبدأ من أول سجل وتحسب ما تريد حتى السجل الأخير، أو تستعمل CalcField أي الحقول ذات ميزة الحساب التلقائي (أوتوماتيكي).
السلام عليكم من فضلكم اخواني الكرام محتاج مساعدة

السلام عليكم
أخ geant الم تستفد من رد الاخ مروان ؟
ما المشكل ؟ رسالة الخطأ ؟ أظهر محاولتك
هده هي محاولتي

form6.adotable1.FieldValues['QTE']:=form4.adotable1.FieldValues['QTE']-form5.adotable1.FieldValues['QTE'];
السلام عليكم كما قال الاخ مروان استخدم Calculated Field
هده محاولتي
https://up.top4top.net/downloadf-125587wka1-rar.html

procedure TForm6.ADOTable1CalcFields(DataSet: TDataSet);

begin

form6.adotable1.FieldValues['QTE']:=form4.adotable1.FieldValues['QTE']-form5.adotable1.FieldValues['QTE'];

end;
من فضلكم هل من مساعدة

عدد التحملات بلغ 109 و لكن للاسف ولا واحد قدم شيء مفيد.السؤال ما دور الخبراء و اين هم للاسف اكره استغلالي هكذا ارجو مسح الموضوع الخاص بي و شكرا لكم
ليس هناك اي مساهمة مفيدة من الاعضاء رغم ان 109 ممن قامو بالتحميل فاين الجادون ؟؟؟؟؟؟؟
الصفحات : 1 2