منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعبئة الكومبو بالبحث المتعدد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعبئة الكومبو بالبحث المتعدد (/showthread.php?tid=36570)

الصفحات: 1 2


تعبئة الكومبو بالبحث المتعدد - ZaerAllail - 30-09-20

في المثال المرفق أتمنى أن يكون هناك طريقة لجلب اسماء ابناء الموظف وعرضها في الكومبو بكس الخاص بهم عند عرض إسم الموظف
انتظر الحلول من الجميع


RE: تعبشة الكومبو بالبحث المتعدد - ZaerAllail - 30-09-20

للتوضيح فقط
المطلوب هو أن يظهر ابناء الموظف في الكومبو الأخر عند إختيار الموظف !


RE: تعبشة الكومبو بالبحث المتعدد - ابو محمد محمد محمد - 30-09-20

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

select BoyName from ChidTable where ChildIndex=@ChildIndex

وهذه التعبئة طبعا ستكون في الحدث OnChange للكمبو الاول


RE: تعبشة الكومبو بالبحث المتعدد - ZaerAllail - 30-09-20

(30-09-20, 11:56 AM)ابو محمد محمد محمد كتب : بدون ان ارى المثال
بنفس الطريقة التي عبئت بها الكومبو الاول تقوم بتعبئة الثاني
اكيد لديك جدول للابناء وبه حقل انديكس للربط بالاول
الجملة ستكون

select  BoyName from ChidTable where  ChildIndex=@ChildIndex

وهذه التعبئة طبعا ستكون في الحدث OnChange للكمبو الاول

ليس هناك جدول للأبناء فالأبناء مضافين بنفس جدول الأب 
اتمنى تطلع على المثال لتتوضيح 
فجملة البحث يا عزيزي يجب أن تستخرج لي حقل الإبن الأول والإبن الثاني والثالث والرابع وتقوم بتعبئتها في الكومبو الخاص بالأبناء
فكل سطر في الداتا يحتوي سجل أب مع عدد من الأبناء وهكذا


RE: تعبشة الكومبو بالبحث المتعدد - سعود - 30-09-20

أرجو ان يكون التالي هو المطلوب

[مشروع] تطبيق فكرة جدولين لكن بجدول واحد فقط [الدول و المدن]




RE: تعبشة الكومبو بالبحث المتعدد - ZaerAllail - 30-09-20

للأسف يا سعود بارك الله فيك ليس هو المطلوب
والمشكله واضح في المثال المرفق فمع الموظف ابناءة في نفس السجل والسجل موظف اخر وابناءه
والمطلوب عند يتم عرض الموظف الموجود في السجل الأول في الجدول في الكومبو الأول يتم في نفس الوقت تعبئة الكومبو الثاني بأبناءه الموجودين معه في نفس السجل

اعلم أنها معضله ولكن لابد أن لها حل !


RE: تعبشة الكومبو بالبحث المتعدد - سعود - 30-09-20

(30-09-20, 10:02 PM)ZaerAllail كتب : للأسف يا سعود بارك الله فيك ليس هو المطلوب
والمشكله واضح في المثال المرفق فمع الموظف ابناءة في نفس السجل والسجل موظف اخر وابناءه
والمطلوب عند يتم عرض الموظف الموجود في السجل الأول في الجدول في الكومبو الأول يتم في نفس الوقت تعبئة الكومبو الثاني بأبناءه الموجودين معه في نفس السجل

اعلم أنها معضله ولكن لابد أن لها حل !

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

PHP كود :
 If EmpCbBx.SelectedIndex = -1 Then Exit Sub
        EmpNoLp
.Text EmpData(EmpCbBx.SelectedIndex)(0)

 
       SonsCmbBox.Items.Clear()

 
       Dim m As Integer
        For m 
2 To EmpData.Columns.Count 1
            SonsCmbBox
.Items.Add(EmpData.Rows(EmpCbBx.SelectedIndex).Item(m).ToString)


 
       Next 
طبقت التعديل على مثالك وعمل بشكل جيد.


RE: تعبشة الكومبو بالبحث المتعدد - ZaerAllail - 30-09-20

سلمت أناملك يا غالي
بالضبط هذا هو المطلوب حفظك الله


RE: تعبشة الكومبو بالبحث المتعدد - ZaerAllail - 01-10-20

(30-09-20, 10:06 PM)سعود كتب :
(30-09-20, 10:02 PM)ZaerAllail كتب : للأسف يا سعود بارك الله فيك ليس هو المطلوب
والمشكله واضح في المثال المرفق فمع الموظف ابناءة في نفس السجل والسجل موظف اخر وابناءه
والمطلوب عند يتم عرض الموظف الموجود في السجل الأول في الجدول في الكومبو الأول يتم في نفس الوقت تعبئة الكومبو الثاني بأبناءه الموجودين معه في نفس السجل

اعلم أنها معضله ولكن لابد أن لها حل !

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

PHP كود :
 If EmpCbBx.SelectedIndex = -1 Then Exit Sub
        EmpNoLp
.Text EmpData(EmpCbBx.SelectedIndex)(0)

 
       SonsCmbBox.Items.Clear()

 
       Dim m As Integer
        For m 
2 To EmpData.Columns.Count 1
            SonsCmbBox
.Items.Add(EmpData.Rows(EmpCbBx.SelectedIndex).Item(m).ToString)


 
       Next 
طبقت التعديل على مثالك وعمل بشكل جيد.

هل من الممكن تطبيق نفس الكود إذا كانت بيانات الإبناء في الجدول مثلا الإسم ورقم الهاتف الإسم ورقم الهاتف فهل من الممكن تعبئة الكومبو بالأسماء فقط دون الأرقام ؟


RE: تعبئة الكومبو بالبحث المتعدد - ZaerAllail - 01-10-20

بعد عملية البحث تتم إضافة العناصر إلى الكومبو متتابعة أو متفرقة بهذا الكود وفقا لرقمها في الداتا تيبل!

كود :
       SonsCmbBox.Items.Clear()
       Dim r As DataRow
       For Each r In SonsCmbBox.Rows
           SonsCmbBox.Items.Add(r(3).ToString)
           SonsCmbBox.Items.Add(r(5).ToString)
           SonsCmbBox.Items.Add(r(7).ToString)
           SonsCmbBox.Items.Add(r(9).ToString)
       Next