منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كود :

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

جرب هذا

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

كود :

' بعد تعبئة الكمبوبوكس ببطريقة عادية

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

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

(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