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)
Next
طبقت التعديل على مثالك وعمل بشكل جيد.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
(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