منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] combobox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] combobox (/showthread.php?tid=34531)

combobox - سمير1404 - 30-04-20

الاخوة الكرام 

هل هناك اداة او كود اوطريقة تمكني من خلالها عرض حقلين في نفس الكمبوبوكس من جدول واحد 

التوفيق للجميع

RE: combobox - ابراهيم ايبو - 30-04-20

السلام عليكم اخي الكريم سمير
يمكنك فعل ذلك ولكن تستفيد من الكومبو لاستخدامه في البحث 
اي ان الكومبو سيكون للعرض فقط 
تابع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=34055

RE: combobox - aljzazy - 30-04-20

تحياتي لك اخي الكريم
لنفرض ان لديك جدول العملاء (Customer_Tbl)ويحتوي على سبيل المثال على ثلاث حقول :
1. رقم العميل(Cus_ID)
2. اسم العميل(CusName)
3. هاتف العميل(CusPhone)

ونريد مثلا اظهار اسم العميل ورقم الهاتف في الكومبوبوكس


كود :
 Private cmd As New SqlCommand()
   Private da As New SqlDataAdapter()
   Private dt As New DataTable()

   Private Sub FillCBO()
       'فتح الاتصال
       con.Open()
       Try
           'جملة السليكت من الجدول
           Dim sqlQuery As String = "Select Cus_ID,  (CusName + ' ,' + CusPhone   ) as 'Name' FROM Customer_Tbl"
           cmd = New SqlCommand()
           cmd.Connection = Con
           cmd.CommandText = sqlQuery
           da = New SqlDataAdapter()
           da.SelectCommand = cmd
           dt = New DataTable()
           da.Fill(dt)
           comboBox1.DataSource = dt
           comboBox1.DisplayMember = "Name"
           comboBox1.Text = "Select"
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
       da.Dispose()
       Con.Close()
   End Sub


الان ما عليك سو استدعاء

كود :
FillCBO()
في الحدث الذي تريده

ولا تنسى جملة الاتصال بقاعدة البيانات

كود :
Public ConStr As String = "Data Source= .\SQLEXPRESS;Initial Catalog = database Name;Integrated Security = True"

   Public Con As New SqlClient.SqlConnection(ConStr)


RE: combobox - سمير1404 - 01-05-20

مع الاسف لم انجح
اظن ان الخطاء لدي
النتجية تظهر فارغة

RE: combobox - aljzazy - 01-05-20

ارفق مشروعك وسيتم التعديل عليه