تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مساعدة في الإكمال التلقائي بالكمبوبكس
#1
السلام عليكم

اريد ان يكون التكميل تلقائي عند البحث في الكمبوبكس حسب الاسماء الموجودة

تحياتي للجميع و جزاكم الله خير


الملفات المرفقة
.rar   ComboBox1.rar (الحجم : 184.99 ك ب / التحميلات : 35)
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة:
#2
يمكنك اضافة هذا الكود 

كود :
       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"
الرد }}}
تم الشكر بواسطة:
#3
(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"

اشكرك على سرعة الرد

هل اضيفها في (ComboBox1_SelectedIndexChanged)

او الفورم لود ؟
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة:
#4
يتم اضافتها الى الكود الموجود لديك 
اى فى كود تحميل النموذج
الرد }}}
تم الشكر بواسطة: أبووسم
#5
جزاك الله خير

اشكرك على تفاعلك
و لكن أريد عند اختيار اسم معين يتم عرض بياناته في التكست بوكس
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة:
#6
جرب هذا الكود أخى 
قم بحذف كود عند التحميل للنموذج و ضع هذا الكود مكانه

كود :
   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
الرد }}}
تم الشكر بواسطة: أبووسم
#7
(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
جزاك الله خير الكود يعمل بشكل ممتاز

و لكن بقي حاجة بسيطة ، لا يمكن البحث عن الرقم ، حالياً يبحث بالاسم فقط
أشكرك من كل قلبي على ردك و تواصلك الطيب
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة:
#8
و جزاكم مثله

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

كود :
   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
الرد }}}
تم الشكر بواسطة: أبووسم
#9
(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

جزاك الله خير وزادك علماً

الكود شغال و تمام الله يعطيك العافية
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  [سؤال] مشكله كود TRansaction وحقل الترقيم التلقائي 01AHMED 0 109 09-02-24, 10:31 PM
آخر رد: 01AHMED
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 220 31-01-24, 12:56 AM
آخر رد: AHMED213
  الترقيم التلقائي محمد خيري 4 305 20-01-24, 03:12 AM
آخر رد: محمد خيري
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق

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


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