(06-03-18, 01:23 AM)mrnooo2000 كتب : يمكنك اضافة هذا الكود 

كود :

       For Each rw As DataRow In DataSet1.Tables("Qoult").Rows
           ComboBox1.Items.Add(rw("name1"))
       Next

او هذا الكود 

كود :

             ComboBox1.DataSource = DataSet1.Tables("Qoult")
        ComboBox1.ValueMember = "Idcard"
        ComboBox1.DisplayMember = "name1"

(07-03-18, 05:33 PM)mrnooo2000 كتب : جرب هذا الكود أخى 
قم بحذف كود عند التحميل للنموذج و ضع هذا الكود مكانه

كود :

   Private BS As BindingSource
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("AR"))
       Conn.Open()
       Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
       DataAdapter1.Fill(DataSet1, "Qoult")
       Conn.Close()
     
     
       Dim DS As New DataSet
       DS.Clear()
       Dim DP As New OleDbDataAdapter("SELECT * FROM Qoult", Conn)
       DP.Fill(DS, "Qoult")


       BS = New BindingSource(DS, "Qoult")
       TextBox1.DataBindings.Add("Text", BS, "name1")
       TextBox2.DataBindings.Add("Text", BS, "Idcard")
       TextBox3.DataBindings.Add("Text", BS, "School")

       ComboBox1.DataSource = BS
       ComboBox1.ValueMember = "Idcard"
       ComboBox1.DisplayMember = "name1"

   End Sub

(08-03-18, 08:41 AM)mrnooo2000 كتب : و جزاكم مثله

للتبديل بين الاسم و الرقم أضف هذا الكود الى الكود لديك

كود :

   Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
       ComboBox1.ValueMember = "Idcard"
       ComboBox1.DisplayMember = "name1"
   End Sub

   Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
       ComboBox1.ValueMember = "Idcard"
       ComboBox1.DisplayMember = "Idcard"
   End Sub