نقل بينات من فايل الى اخر

نورالايام كتب:

تحية طيبة

عندي فايلين اثنين

الاول بي كود واسم والثاني بي كود وحق ل الاسم فارغ اريد اطابق الكود بين الفايليين وفي حالة المطابقة انقل حقل الاسم الى الفيل الثاني

جرب هذا التعديل

تحياتى

SELECT t1

GO top

DO WHILE !EOF()

mm=t1.cod

nm=t1.name

SELECT t2

LOCATE FOR mst_cd=mm

IF FOUND()

WAIT WINDOW mm+" "+nm NOWAIT

replace t2.mst_bm WITH nm

endif

SELECT t1

skip

ENDDO

thisform.Refresh()

noor.rar

alaaqasem كتب:

جرب هذا التعديل

تحياتى

SELECT t1

GO top

DO WHILE !EOF()

mm=t1.cod

nm=t1.name

SELECT t2

LOCATE FOR mst_cd=mm

IF FOUND()

WAIT WINDOW mm+" "+nm NOWAIT

replace t2.mst_bm WITH nm

endif

SELECT t1

skip

ENDDO

thisform.Refresh()

شكرا على الاجابة ويارب مزيد من العطاءوالتقدم

السلام عليكم

اخوتي الاعزاء بالرغم من اني مسافر عن اهلي ولكن متابع للمنتدى عن طريق الموبايل

وشاركت لجمال الردود والحركة الموجود واتمنى ان تكون مستمرة

وتحية خاصة للمهندس علاء وانا افتقد شادو المبدع عسى ان يكون بخير وعافية

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

اضافة للردود الاستاذ علاء

اليك الطريقة الثانية

لزيادة المعلومات

تحياتي لكم

noor.zip

lion iraq كتب:

السلام عليكم

اخوتي الاعزاء بالرغم من اني مسافر عن اهلي ولكن متابع للمنتدى عن طريق الموبايل

وشاركت لجمال الردود والحركة الموجود واتمنى ان تكون مستمرة

وتحية خاصة للمهندس علاء وانا افتقد شادو المبدع عسى ان يكون بخير وعافية

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

اضافة للردود الاستاذ علاء

اليك الطريقة الثانية

لزيادة المعلومات

تحياتي لكم

شكرا استاذ فراس ...بارك الله فيك.. جربت برنامجك بصراحة مشتغل تمام بس فكرتة واضحة.... شكرا لجهودك

alaaqasem كتب:

جرب هذا التعديل

تحياتى

SELECT t1

GO top

DO WHILE !EOF()

mm=t1.cod

nm=t1.name

SELECT t2

LOCATE FOR mst_cd=mm

IF FOUND()

WAIT WINDOW mm+" "+nm NOWAIT

replace t2.mst_bm WITH nm

endif

SELECT t1

skip

ENDDO

thisform.Refresh()

استاذ بس كان عندي سؤال في حاله تكرار الكود في الفايل الثاني وتكرارة اكثر من مرة فان البرنامج سيملي حقل واحد كيف اجعلة يطابق ويملي حقل الاسم مع وجود تكرار الكود مثلا

الكود:1 هو صورة تكرر الكود في الفايل الثاني اكثر من مرة بحوالي10 مرات فانة يملي حقل واحد ويترك 9 حقول بدون اسماء وشكرا وعذرا على الاطاله...........

نورالايام كتب:

شكرا استاذ فراس ...بارك الله فيك.. جربت برنامجك بصراحة مشتغل تمام بس فكرتة واضحة.... شكرا لجهودك

استاذ بس كان عندي سؤال في حاله تكرار الكود في الفايل الثاني وتكرارة اكثر من مرة فان البرنامج سيملي حقل واحد كيف اجعلة يطابق ويملي حقل الاسم مع وجود تكرار الكود مثلا

الكود:1 هو صورة تكرر الكود في الفايل الثاني اكثر من مرة بحوالي10 مرات فانة يملي حقل واحد ويترك 9 حقول بدون اسماء وشكرا وعذرا على الاطاله...........

فى حالة تكرار الكود فى الملف الثانى نعمل التعديل التالى

جرب هذا التعديل

تحياتى

SELECT t1

GO top

DO WHILE !EOF()

mm=t1.cod

nm=t1.name

SELECT t2

WAIT WINDOW mm+" "+nm NOWAIT

replace all mst_bm WITH nm for mst_cd=mm

SELECT t1

skip

ENDDO

thisform.Refresh()

alaaqasem كتب:

فى حالة تكرار الكود فى الملف الثانى نعمل التعديل التالى

جرب هذا التعديل

تحياتى

SELECT t1

GO top

DO WHILE !EOF()

mm=t1.cod

nm=t1.name

SELECT t2

WAIT WINDOW mm+" "+nm NOWAIT

replace all mst_bm WITH nm for mst_cd=mm

SELECT t1

skip

ENDDO

thisform.Refresh()

شكرا استاذ تم نقلها بنحاج وعمله مظبوط جدااا ممنونة منك جدا جدا.....مع فائق الشكر والتقدير..

احسنتم أيها الاصدقاء برنامج رائع  وفقكم الله 

تحياتي لكم