الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل من حل اخر انقذوني

بدأه Yassin_VFP9 في 20 يونيو 2009 · 7 رد · 1,153 مشاهدة · في قواعد بيانات Visual FoxPro
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

ارجو من خبراء الفوكس برو 9 تصحيح طريقتي في طريقة استعمال القائمة السفلية liste déroulate (en français)

الهدف هو نقل محتويات الجدول و بالضبط الحقل "الاسم" في القائمة السفلية

*-------------------------initi------------------

public vliste

use table

count to nb

if nb<>0

dimension vliste(nb,1)

الاسم copy to array vliste fields

else

dimension vliste(1,1)

endif

*----------------------------------------------

فيما بعد اذهب الى الفورم واقوم بتعديل القائمة السفلية كما هو موضح في الصور

الطلب هو

هل من طريقة احسن في انجاز هذا العمل

post-203519-1245512132_thumb.jpg

<<--DON CORLEONNE-->>

#2

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخي ياسين،

جرب المثال التالي

قم بانشاء نموذج وضع فيه ComboBox

Procedure Form.Load
Public Array MyArray(1)
Store " " To MyArray(1)
Create Cursor MyCursor (iNo i(4), iName c(40))
Select MyCursor
For i = 1 To 5
	  Insert Into MyCursor (iNo, iName) Values (i, [ Name :]+ Alltrim(Str(i)))
Next
Select iName From MyCursor Into Array MyArray

Procedure Combo.Init
this.RowSourceType= 5
this.RowSource='MyArray'

مع التحية

تم تعديل هذه المشاركة بواسطة Shadowz في 21 يونيو 2009 في 03:18

أستغفر الله العظيم و أتوب إليه

#3

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

ما رأيك في هذا

If rtyp_resp1<>0

Public Array MyArray(1)

Store " " To MyArray(1)

Select nom_resp From resp ORDER BY cod_resp WHERE typ_resp=rtyp_resp1 Into Array MyArray

thisform.combo1.RowSourceType= 5

thisform.combo1.RowSource='MyArray'

Endif

وشكرا اخي الكريم

<<--DON CORLEONNE-->>

#4

السلام عليكــم ورحمـة الله وبركاتــه ،،

بالتأكيد الخطوات صحيحة اخي ياسين، وكل ما يتبقى هو الالية الافضل حسب متطلبات النموذج الأخرى

مع التحية

أستغفر الله العظيم و أتوب إليه

#5

السلام عليكــم ورحمـة الله وبركاتــه،،

هناك مشكلة اخرى فهل من مساعد؟

عندي combo box لكن Drop-down combo

هذه الميزة تمكنني من اختيار في القائمة او الكتابة مباشرة

المشكلة هي

عندما اكتب مباشرة في combo box واريد ان اسجل في الجدول

باستعمال

append blank

replace test with rtest

فهو يسجل القيمة الفارغة؟؟؟؟؟؟؟؟؟

post-203519-1245695382_thumb.jpg

تم تعديل هذه المشاركة بواسطة Yassin_VFP9 في 22 يونيو 2009 في 21:30

<<--DON CORLEONNE-->>

#6

Try this:

replace test with thisform.combo1.TEXT

أستغفر الله العظيم و أتوب إليه

#7

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

شكراً لك اخي الكريم

مشكور اخي جدااااااااااااااااااااااااااااااااااااااااااااااا

مشكور اخي جدااااااااااااااااااااااااااااااااااااااااااااااا

مشكور اخي جدااااااااااااااااااااااااااااااااااااااااااااااا

مشكور اخي جدااااااااااااااااااااااااااااااااااااااااااااااا

<<--DON CORLEONNE-->>

#8

العفو اخي العزيز..

أستغفر الله العظيم و أتوب إليه

مواضيع مشابهة