جرب هذا الكود أخى
قم بحذف كود عند التحميل للنموذج و ضع هذا الكود مكانه
كود :
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")
(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")
للتبديل بين الاسم و الرقم أضف هذا الكود الى الكود لديك
كود :
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
للتبديل بين الاسم و الرقم أضف هذا الكود الى الكود لديك
كود :
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
جزاك الله خير وزادك علماً
الكود شغال و تمام الله يعطيك العافية
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره