بدأ السيلكت من السطر الثاني - نسخة قابلة للطباعة

بدأ السيلكت من السطر الثاني - نسخة قابلة للطباعة

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

بدأ السيلكت من السطر الثاني - محمد خيري - 21-10-18

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

كود :

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

RE: بدأ السيلكت من السطر الثاني - rnmr - 21-10-18

جرب هذا

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

كود :

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

ComboBox1.Items.RemoveAt(0)

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

كود :

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

dt.Rows.RemoveAt(0)

ComboBox1.DataSource = dt

ComboBox1.DisplayMember = "user_name"

RE: بدأ السيلكت من السطر الثاني - محمد خيري - 21-10-18

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

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

RE: بدأ السيلكت من السطر الثاني - rnmr - 21-10-18

(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