[rnmr]

(21-10-18, 12:43 PM)محمد خيري كتب : شكرا اخي rnmr على المساعدة كيف يمكن اضبطها على هذا الكود ما فهمت عليك اخي

كود :

   Sub fillcombo()
       Try
           Dim CN As New SqlConnection(cs)
           CN.Open()
           adp = New SqlDataAdapter()
           adp.SelectCommand = New SqlCommand("Select distinct (user_name) from table_users ", CN)
           ds = New DataSet("ds")
           adp.Fill(ds)
           dtable = ds.Tables(0)
           ComboBox1.Items.Clear()
           For Each drow As DataRow In dtable.Rows
               ComboBox1.Items.Add(drow(0).ToString())
           Next
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

اريد دايما السطر الاول ما يظهر بالكومبوبكس و شكرا تبدا النعبئة من السطر الثاني

جرب هذا


الكود يستخدم التعبئة بالطريقة العادية
وكما هو مبين في الكود تنتهي التعبئة بعد Next،
فإذا، يتم بعد Next وضع كود حذف السطر الأول

كود :

Sub fillcombo()
   Try
       Dim CN As New SqlConnection(cs)
       CN.Open()
       adp = New SqlDataAdapter()
       adp.SelectCommand = New SqlCommand("Select distinct (user_name) from table_users ", CN)
       ds = New DataSet("ds")
       adp.Fill(ds)
       dtable = ds.Tables(0)
       ComboBox1.Items.Clear()
       For Each drow As DataRow In dtable.Rows
           ComboBox1.Items.Add(drow(0).ToString())
       Next
        ' هنا انتهاء التعبئة

       ComboBox1.Items.RemoveAt(0) ' حذف السطر الأول

   Catch ex As Exception
       MessageBox.Show(ex.Message)
   End Try
End Sub