+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=18942)
مشكلة ملي كمبوبوكس من اخر علي اساس شرط فى كمبوبوكس اخر - كفاح - 24-01-17
السلام عليكم
كيف اقوم بتعبئة كمبوبوكس من شرط في كمبوبوكس اخر
الاول خاص بالمعاهد
اما الثاني خاص بالمدرسين
قمت بكتابة الكود التالي
PHP كود :
Private Sub cmbSchools_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbSchools.SelectedIndexChanged
Try
daemp = New SqlDataAdapter("SELECT * FROM emp INNER JOIN School on School_id_emp = " & cmbSchools.SelectedValue, con)
ConnectDb()
ds = New DataSet
daemp.Fill(ds, "emp")
If daemp.SelectCommand.ExecuteScalar() Is DBNull.Value Then
ComboBox1.Text = ""
Else
ComboBox1.DataSource = ds.Tables("emp")
ComboBox1.ValueMember = "emp_id1"
ComboBox1.DisplayMember = "emp_name"
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
فكانت النتيجة كالتالي
تظهر هذه الرسالة مرتين ثم تظهر النافذة وفيها خطا تكرار الاسم اكثر من مرة في كمبوبوكس الموظفين اريد الموظف الذي يعمل فى المعهد فقط
ارجوا المساعدة ولكم جزيل الشكر
RE: مشكلة ملي كمبوبوكس من اخر علي اساس شرط فى كمبوبوكس اخر - مساعدة - 24-01-17
السلام عليكم
لم تضعي لي نسخة من بيانات قاعدة البيانات في الموضوع السابق، في حين بدأت بالتعديل على المشروع السابق، ولكن كأني أشاهد هنا اختلاف.
اول عدلي انواع البيانات في قاعدة البيانات من nchar الى nvarchar
ثانيا استخدمي الترقيم التلقائي في عمود id غير باستثناء عمود serial
وهذه صور بعض التعديلات
[attachment=12929]
[attachment=12930]
أنتظر منك وضع المشروع الكامل الذي لديك للإقتباس منه وعمل التعديلات.
كما ترين هناك اختلاف بالمسميات عندما كتبت (المورد) ولكن الواضح من خلال الصورة في هذا الموضوع أنه (المعهد)
RE: مشكلة ملي كمبوبوكس من اخر علي اساس شرط فى كمبوبوكس اخر - كفاح - 24-01-17
اشكرك ياستاذ مساعدة علي سرعة تجاوبك واتمني من حضرتك اني ارسلك على الخاص وحتي الان نفس المشاكل السابقة وقمت بعمل التعديلات على قاعدة البيانات
وبحمد لله قمت بعمل تعديل علي كود الكمبوبوكس ولا يوجد اخطاء لكن حتي الان هناك تكرار في كمبوبوكس الموظفين
وهذا الكود للافادة
PHP كود :
Public Sub fillcombo(ByVal combo As ComboBox, ByVal query As String, ByVal displayMember As String, ByVal valuMember As String)
cmd = New SqlCommand(query, con)
adapter = New SqlDataAdapter(cmd)
table = New DataTable()
adapter.Fill(table)
combo.DataSource = table
combo.DisplayMember = displayMember
combo.ValueMember = valuMember
End Sub
PHP كود :
Private Sub cmbSchools_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbSchools.SelectedIndexChanged
Dim val As Integer = 0
Int32.TryParse(cmbSchools.SelectedValue.ToString(), val)
Dim query As String = "SELECT * FROM emp INNER Join School ON emp.School_id_emp = " & val
fillcombo(ComboBox1, query, "emp_name", "emp_id1")
End Sub
