السلام عليكم
عندي مشكلة وهي اريد ان اظهر نتائج استعلام عمود فيه صفوف كثيرة واريد اعرض2 صف
في كمبو بوكس 1 وكمبوكس 2
يعني كل صف على لوحده
اي كل كمبوبوكس 1 ياخذ صف 1
وكمبو بوكس 2 ياخذ صف 2
وهكذا
انا عملت الطريقة الدوران طبعا لا تعرض لي الا صف واحد في الاثنين كمبوبوكس
[Do While (dr2.Read())
cboID.SelectedValue = dr2.Item("ID")
cboID2.SelectedValue = dr2.Item("ID")
Loop
تم تعديل هذه المشاركة بواسطة الحوت المضيء في 21 فبراير 2013 في 22:10
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
رغم عدم فهمي المضوع ولكن اعتقد الحل وضح جمله شرطية قبل الاختار يحدد ما نوع العنصر
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); اسف اذا كان المثال غير واضح سحاول ان اوضح
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
في السطر الثاني استخدم
ID+1
ليأخذ السطر التالي
ويتوجب عليك التأكد من أن السطر التالي موجود حتى لا يولد خطأ في حال كانت النتيجة تحوي سطر واحد فقط
تم تعديل هذه المشاركة بواسطة أبو أحمد المبرمج في 22 فبراير 2013 في 02:48
ما أقبـح المعصية ، تذهب لذتها ويبقى إثمها ... ومأ أحسن الطاعة ، تذهب مشقتها ويبقى ثوابها
كل نعيم دون الجنة غرور ... وكـل شقـاء دون النـار سرور
جزاك الله خير العمود في اكثر من صف فاذا
ID+1
يمكن يكون شيء اخر هنا
جدول هو يحمل عمودين
IDBOOK و ID
وكمبوبوكس عماله تعبئة للجميع المولفين
كمثال العمود في مؤلفين
1
2
3
4
5
6
7
انا عملت بحث برقم الكتاب 5 وكثاب هذا عدد مؤلف 2 ومؤلفين هم مثالا 3 و6
اذا عملت ID+1
سوف يظهر في كمبو بوكس الاول 3 كمبو بوكس الثاني 4
لم اعرف الحل ؟؟
تم تعديل هذه المشاركة بواسطة الحوت المضيء في 22 فبراير 2013 في 03:27
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
أخي نحن وضعنا الإجابة بناء على الكود الذي وضعته
لأن السطرين متماثلين أي بمعنى يتم في الكومبوبوكسين نفس القيمة
وأنت تريد السطر والسطر الذي يليه من جدول النتائج
إذا ضع لنا الكود من أوله لنصل إلى إجابة أفضل
ما أقبـح المعصية ، تذهب لذتها ويبقى إثمها ... ومأ أحسن الطاعة ، تذهب مشقتها ويبقى ثوابها
كل نعيم دون الجنة غرور ... وكـل شقـاء دون النـار سرور
تفضل اخي الكريم اسف لسوء الفهم
BAdAss.sqlcon.Open()
SQL1 = " Select * From AuthorANDBook Where IDB =" & TxtRecID.Text
Dim cmd2 As New SqlCommand(SQL1)
cmd2.Connection = BAdAss.sqlcon
Dim dr2 As SqlDataReader = cmd2.ExecuteReader
Do While (dr2.Read())
cboAuthor.SelectedValue = dr2.Item("AuthorID")
If cboAuthor.SelectedIndex <> -1 Then
cboAuthor2.SelectedValue = dr2.Item("AuthorID")
End If
Loop
BAdAss.sqlcon.Close()
تم تعديل هذه المشاركة بواسطة الحوت المضيء في 22 فبراير 2013 في 05:21
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
في هذه الحالة يجب أن تستدعي الإجراء dr2.Read() مرة أخرى بعد سطر الكومبو بوكس الأول لكي يتم القراءة من السطر الذي يليه
وبالطبع يجب وضعه ضمن شرط
أي
BAdAss.sqlcon.Open()
SQL1 = " Select * From AuthorANDBook Where IDB =" & TxtRecID.Text
Dim cmd2 As New SqlCommand(SQL1)
cmd2.Connection = BAdAss.sqlcon
Dim dr2 As SqlDataReader = cmd2.ExecuteReader
Do While (dr2.Read())
cboAuthor.SelectedValue = dr2.Item("AuthorID")
If dr2.Read() Then
cboAuthor2.SelectedValue = dr2.Item("AuthorID")
End If
Loop
BAdAss.sqlcon.Close()ما أقبـح المعصية ، تذهب لذتها ويبقى إثمها ... ومأ أحسن الطاعة ، تذهب مشقتها ويبقى ثوابها
كل نعيم دون الجنة غرور ... وكـل شقـاء دون النـار سرور
جزاك الله خير
الله يغفرلك ويرفع مقدارك
شكر لك جاري التجربة مرة اخرة
بعد هذا كله
If dr2.Read() Then
الامر يجعلك تريد جنون
جزاء الله خير تم التجربة اكثر من مرة بنجاح 100%
تم تعديل هذه المشاركة بواسطة الحوت المضيء في 22 فبراير 2013 في 05:29
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
هذا الموضوع مغلق.