المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيف اعرض معلومات بكمبوبوكس بناء على اختيار من كمبوبوكس اخر



شوكولانان
19-03-2010, 06:02 PM
السلام عليكم

اخوتي الافاضل في هذا المنتدى الفاضل

عملت برنامج لاستعراض اسماء الطلاب والتعديل عليها

باقي عندي مشكله واحده ويكون البرنامج تمام التمام

عندي اول متوسط اربع شعب وثاني ثلاث شعب وثالث ثلاث شعب

وضعت كمبوبوكس لعرض الفصول الثلاثه وكمبوبوكس لعرض الشعب

الان اذا حددت اول متوسط يعرض لي الشعب تمام يستدعيها من قاعدة البيانات ويحطها بالكمبو بكس المشكله اني لما اغير الى ثاني متوسط يعرض لي شعب ثاني مع شعب اول او يطلع لي خطأ

كيف اسوي استعلام بحيث يعرض لي الشعب على حسب الفصل المحدد

اتمنى من المبرمجين الافاضل المساعده ولو بالتلميحات

المظفر بالله
20-03-2010, 02:14 AM
وعليكم السلام ورحمة الله وبركاته
اخي الكريم بارك الله فيك , ربما لديك مشكلة بسيطة بالكود , ان شاء الله تكون بسيطة
حلها كتلميح هو بتفريغ الكومبو بوكس الثاني قبل الاضافة اليه , انت ربما تقوم باضافة الشعب والكومبو بوكس يحتوي على شعب الفصل الاول فقم بعمل تفريغ يعني clear ثم اضف اليه , جملة او جملتين قبل ان تبدأ بالاضافة

شوكولانان
22-03-2010, 01:06 AM
السلام عليكم

مشكور اخي الكريم على توجيهاتك وقد عملت بها

ولكن واجهتني مشكله اخرى انظر الى هذه الاكواد


اجراء استدعاء شعب الصف الاول




Public Sub shooab()
ComboBox4.DataSource = Nothing
CheckBox4.Text = ""
ComboBox4.Items.Clear()
Using cmd As New OleDbCommand("SELECT * FROM st_fosool where alsaf=7", callthem)
With cmd.ExecuteReader
If .HasRows Then
While (.Read)
ComboBox4.Items.Add(.Item("faslname"))
End While

End If
End With
End Using
End Sub



اجراء استدعاء شعب الصف الثاني




Public Sub shooab2()
ComboBox4.DataSource = Nothing
CheckBox4.Text = ""
ComboBox4.Items.Clear()
Using cmd As New OleDbCommand("SELECT * FROM st_fosool where alsaf=8", callthem)
With cmd.ExecuteReader
If .HasRows Then
While (.Read)
ComboBox4.Items.Add(.Item("faslname"))
End While

End If
End With
End Using
End Sub



اجراء استدعاء الصف الثالث




Public Sub shooab3()
ComboBox4.DataSource = Nothing
CheckBox4.Text = ""
ComboBox4.Items.Clear()
Using cmd As New OleDbCommand("SELECT * FROM st_fosool where alsaf=9", callthem)
With cmd.ExecuteReader
If .HasRows Then
While (.Read)
ComboBox4.Items.Add(.Item("faslname"))
End While

End If
End With
End Using
End Sub



الان كل اجراء اذا شغلته لوحده تمام

اريد ان اضع في حدث تغيير الكمبوبوكس هذه الاجراءاتالثلاثة ويكون فيها الشرط if


هذا هو حدث تغييرالكمبوبوكس بالنسبه لاسماء الفصول





Private Sub ComboBox3_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
If ComboBox3.Items.Item(0) Then

shooab()
ElseIf ComboBox3.Items.Item(1) Then
shooab2()
ElseIf ComboBox3.Items.Item(2) Then
shooab3()
End If

End Sub



اذا شغلت البرنامج وحدت احد الفصول يعطيني الخطا التالي

( Conversion from string "الأول المتوسط" to type 'Boolean' is not valid. )

فما المشكله ؟؟؟؟؟؟؟؟؟

اتمنى ان اجد حلها

http://file7azm.info/do.php?img=807