تقييم الموضوع :
  • 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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى التعديل salah mansour 7 100 15-10-18, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 48 13-10-18, 03:53 PM
آخر رد: mervandzz
  مشكلة فى اختفاء فورم salah mansour 0 37 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 92 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 224 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 212 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [سؤال] مشكلة في إرسال بيانات من الفيجوال الى الوورد سعود الشامان 7 354 08-10-18, 01:56 AM
آخر رد: عبد العزيز البسكري
  مشكلة الكرستال ريبورت DOX.1 1 45 07-10-18, 07:43 PM
آخر رد: rnmr
Photo [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة monm 5 134 05-10-18, 12:26 PM
آخر رد: asemshahen5
  مشكلة شاشة التوقف المتألق9 3 87 30-09-18, 02:16 PM
آخر رد: المتألق9

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


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