تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة ملي كمبوبوكس من اخر علي اساس شرط فى كمبوبوكس اخر
#1
السلام عليكم
كيف اقوم بتعبئة كمبوبوكس من شرط في كمبوبوكس اخر
الاول خاص بالمعاهد
اما الثاني خاص بالمدرسين
قمت بكتابة الكود التالي
PHP كود :
Private Sub cmbSchools_SelectedIndexChanged(sender As ObjectAs EventArgsHandles cmbSchools.SelectedIndexChanged
        Try
            daemp 
= New SqlDataAdapter("SELECT * FROM emp INNER JOIN School on School_id_emp = " cmbSchools.SelectedValuecon)
 
           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 





فكانت النتيجة كالتالي


تظهر هذه الرسالة مرتين ثم تظهر النافذة وفيها خطا تكرار الاسم اكثر من مرة في كمبوبوكس الموظفين اريد الموظف الذي يعمل فى المعهد فقط



ارجوا المساعدة ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

لم تضعي لي نسخة من بيانات قاعدة البيانات في الموضوع السابق، في حين بدأت بالتعديل على المشروع السابق، ولكن كأني أشاهد هنا اختلاف.

اول عدلي انواع البيانات في قاعدة البيانات من nchar الى nvarchar
ثانيا استخدمي الترقيم التلقائي في عمود id غير باستثناء عمود serial

وهذه صور بعض التعديلات

   

   


أنتظر منك وضع المشروع الكامل الذي لديك للإقتباس منه وعمل التعديلات.

كما ترين هناك اختلاف بالمسميات عندما كتبت (المورد) ولكن الواضح من خلال الصورة في هذا الموضوع أنه (المعهد)
الرد }}}
تم الشكر بواسطة:
#3
اشكرك ياستاذ مساعدة علي سرعة تجاوبك واتمني من حضرتك اني ارسلك على الخاص وحتي الان نفس المشاكل السابقة وقمت بعمل التعديلات على قاعدة البيانات
وبحمد لله قمت بعمل تعديل علي كود الكمبوبوكس ولا يوجد اخطاء لكن حتي الان هناك تكرار في كمبوبوكس الموظفين 
وهذا الكود للافادة
PHP كود :
  Public Sub fillcombo(ByVal combo As ComboBoxByVal query As StringByVal displayMember As StringByVal valuMember As String)
 
       cmd = New SqlCommand(querycon)
 
       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 ObjectAs EventArgsHandles 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
(ComboBox1query"emp_name""emp_id1")
 
   End Sub 
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم