[محمد خيري]

السلام عليكم.كيف يمكن بعد اذنكم يبدا ملء الكومبكس من السطر الثاني و ليس الاول في الحقل user_name.عندي الحقل users _id من نوع intليس تلقائي.نحذف السطر الاول لا نظهره.بارك الله فيكم

كود :

adp_Forget.SelectCommand = New SqlCommand("Select distinct (user_name) from table_users ", CN)

[rnmr]

جرب هذا


عند التعبئة بطريقة عادية

كود :

' بعد تعبئة الكمبوبوكس ببطريقة عادية
ComboBox1.Items.RemoveAt(0)

عند التعبئة بطريقة الربط

كود :

' بعد تعبئة الجدول لاستخدامة بطريقة الربط
dt.Rows.RemoveAt(0)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "user_name"

[محمد خيري]

شكرا اخي 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

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

[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