30-09-20, 05:09 PM (آخر تعديل لهذه المشاركة : 30-09-20, 05:14 PM {2} بواسطة ZaerAllail.)
(30-09-20, 11:56 AM)ابو محمد محمد محمد كتب : بدون ان ارى المثال
بنفس الطريقة التي عبئت بها الكومبو الاول تقوم بتعبئة الثاني
اكيد لديك جدول للابناء وبه حقل انديكس للربط بالاول
الجملة ستكون
select BoyName from ChidTable where ChildIndex=@ChildIndex
وهذه التعبئة طبعا ستكون في الحدث OnChange للكمبو الاول
ليس هناك جدول للأبناء فالأبناء مضافين بنفس جدول الأب
اتمنى تطلع على المثال لتتوضيح
فجملة البحث يا عزيزي يجب أن تستخرج لي حقل الإبن الأول والإبن الثاني والثالث والرابع وتقوم بتعبئتها في الكومبو الخاص بالأبناء
فكل سطر في الداتا يحتوي سجل أب مع عدد من الأبناء وهكذا
للأسف يا سعود بارك الله فيك ليس هو المطلوب
والمشكله واضح في المثال المرفق فمع الموظف ابناءة في نفس السجل والسجل موظف اخر وابناءه
والمطلوب عند يتم عرض الموظف الموجود في السجل الأول في الجدول في الكومبو الأول يتم في نفس الوقت تعبئة الكومبو الثاني بأبناءه الموجودين معه في نفس السجل
30-09-20, 10:06 PM (آخر تعديل لهذه المشاركة : 30-09-20, 10:36 PM {2} بواسطة سعود.)
(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)
(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
طبقت التعديل على مثالك وعمل بشكل جيد.
هل من الممكن تطبيق نفس الكود إذا كانت بيانات الإبناء في الجدول مثلا الإسم ورقم الهاتف الإسم ورقم الهاتف فهل من الممكن تعبئة الكومبو بالأسماء فقط دون الأرقام ؟
بعد عملية البحث تتم إضافة العناصر إلى الكومبو متتابعة أو متفرقة بهذا الكود وفقا لرقمها في الداتا تيبل!
كود :
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