السلام عليكم
اني اعمل في شركة بنظام VFP واحتاج الى المقاطعة بين جدولين وحذف المكرر
فقمت بتكوبن برنامج لهذا الغرض ولكنه يعترض على دالة ال(seek) كما في الصورة
فقررت البحث في الانترنيت الى ان وجدت هذا المنتدى الرائع واعضائه المميزين
والخبراء فيVFP من خلال طريقة حلهم للاسئلة
فارجو من الاخوة حل للبرنامج الذي هو في المرفقات مع الصورة
وجزاكم الله خير جزاء
هو الحل التعديل فى 3 سطور من سطور البرنامج
السطر الاول هتغير من
USE (xc1)
الى
USE (xc1) SHARED IN 1
السطر الثانى هتغير من
الى
USE (xc2) SHARED IN 2
السطر الثالث هتغير من
IF SEEK(&T,xc1)
الى
IF SEEK(&T,1)
وفو فيه اى استفسار تانى ان تحت امرك
alaa_mokhtar كتب:هو الحل التعديل فى 3 سطور من سطور البرنامج
السطر الاول هتغير من
USE (xc1)
الى
USE (xc1) SHARED IN 1
" اشكرك alaa_mokhtar على سرعة الرد والاجابة
جربت الطريقة ونجحت
جزاك الله خيرا على اهتمامك وجعله الله من صالح اعمالك "
اخي الحبيب "علاء مختار" عندي سؤال بخصوص دالة (GETFILE)
اريد ان اجعل نافذة (Open) تفتح على البارتشن (D) اي بداية ضهور النافذة
يكون المسار الافتراضي هو (D)
واشكرك على تعاونك
فى البداية يا ريت سؤالك يوضع فى موضوع جديد وموضوع عليه علامة سؤال عشان اى حد ممكن يستفيد
دالة ايجاد الملف تعمل على المسار الافتراضى عشان كدا لازم تغير المسار الافتراضى قبل ما تستعمل الدال
مثال
SET DEFAULT TO "d:"
وبعدين استعمل الدالة
getfile
هتلاقيها راحت للمسار D
ماشاء الله اخي جربت الطريقة ونجحت
لكن هل استطيع ان ارجع المسار الافتراضي اي هل يوجد كود لالغاء الامر (SET DEFAULT TO d:\ )
واشكرك مرة اخرى
جرب
cDirectory = Set("Directory")
GetFile...
SET DEFAULT TO (cDirectory)أستغفر الله العظيم و أتوب إليه
اشكرك على الكود اخي (Shadowz)
اخي العزيز
احب اذكر لك افضل طريقة للعمل على دالة seek
ومشكورين الاخوان المبدعين اولا
والدالة هي
نفترض الجدول باسم mytable ونريد نعرف المتكرر او اي شيعن حق باسم name
use mytable
اشكرك اخي العزيز "اسد العراق" على شرح (SEEK)
طبقت خطواتك ونجحت
واشكر جميع الاعضاء في هذا المنتدى الرائع
