البحث - نسخة قابلة للطباعة

البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=44178)

البحث - ali_ahmed12 - 25-10-22

السلام عليكم
لدي كود البحث التالي عندما ابحث يخرج ناتج لكن اسماء اعمده تتغير في داتا قريد فيو الي اسماء حقول في داتا بيز بالانجليزي
اريد اسماء حقول تبقي كما في قريد فيو
ياريت الي يعرف يقول لي
مرفق كود واسماء اعمدة قبل بحث وبعد بحث كيف تغيرت

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        Dim DT As New DataTable

        Dim DA As New SqlDataAdapter

        DT.Clear()

        DA = New SqlDataAdapter("select *from products where label like '%" & TextBox1.Text & "%'", Module1.con)

            DA.Fill(DT)

            DataGridView1.DataSource = DT.DefaultView

    End Sub

RE: البحث - Taha Okla - 25-10-22

وعليكم السلام ورحمة الله وبركاته ..

بعد كود تعبئة البيانات بإمكانك استخدام كود تغيير عناوين الأعمدة :
مثلاً :

كود :

DataGridView1.Columns(0).HeaderText = "المعرف"

        DataGridView1.Columns(1).HeaderText = "اسم الشركة"

        DataGridView1.Columns(2).HeaderText = "اسم الخدمة"

وهكذا حتى تسمي كافة الأعمدة ..

هذا الكود لا يعترض على التسميات سواء كانت بأي اللغة..

RE: البحث - ali_ahmed12 - 26-10-22

(25-10-22, 10:40 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته ..

بعد كود تعبئة البيانات بإمكانك استخدام كود تغيير عناوين الأعمدة :
مثلاً :

كود :

DataGridView1.Columns(0).HeaderText = "المعرف" DataGridView1.Columns(1).HeaderText = "اسم الشركة" DataGridView1.Columns(2).HeaderText = "اسم الخدمة"

وهكذا حتى تسمي كافة الأعمدة ..

هذا الكود لا يعترض على التسميات سواء كانت بأي اللغة..

يظهر خطا مثل في الصورة
هدا كود

كود :

 Public Sub fill_DGV()

        dt.Clear()

        query = "select id_product 'رمز المعرف',label 'اسم المنتج',label_product 'وصف منتج',UNIT 'الوحدة',date 'تاريخ الصلاحية',qty 'الكمية',tklfa 'سعر التكلفة',price 'سعر البيع',total 'المجموع' from products"

        da = New SqlDataAdapter(query, Module1.con)

        DataGridView1.Columns(0).HeaderText = "رمز المعرف"

        DataGridView1.Columns(1).HeaderText = "اسم منتج"

        DataGridView1.Columns(2).HeaderText = "وصف المنتج"

        DataGridView1.Columns(3).HeaderText = "الوحدة"

        DataGridView1.Columns(4).HeaderText = "تاريخ الصلاحية"

        DataGridView1.Columns(5).HeaderText = "الكمية"

        DataGridView1.Columns(6).HeaderText = "سعر التكلفة"

        DataGridView1.Columns(7).HeaderText = "سعر البيع"

        DataGridView1.Columns(8).HeaderText = " المجموع"

        da.Fill(dt)

        DataGridView1.DataSource = dt

    End Sub

RE: البحث - Taha Okla - 26-10-22

1 - كود الاستعلام لا تكتب به بالعربي(اذا اشتغل اليوم معك على جهاز أو برنامج مش راح يشتغل بكرى على اصدار أو جهاز آخر).
2 - تسميات الاعمدة تكون بعد تعبئة الجدول وليس قبله.

يعني ضع كود تسميات الأعمدة بعد السطر :

كود :

DataGridView1.DataSource = dt

RE: البحث - ali_ahmed12 - 27-10-22

(26-10-22, 12:10 PM)Taha Okla كتب : 1 - كود الاستعلام لا تكتب به بالعربي(اذا اشتغل اليوم معك على جهاز أو برنامج مش راح يشتغل بكرى على اصدار أو جهاز آخر).
2 - تسميات الاعمدة تكون بعد تعبئة الجدول وليس قبله.

يعني ضع كود تسميات الأعمدة بعد السطر :

كود :

DataGridView1.DataSource = dt

الله يرحم والديك خدم صحيح

(26-10-22, 12:10 PM)Taha Okla كتب : 1 - كود الاستعلام لا تكتب به بالعربي(اذا اشتغل اليوم معك على جهاز أو برنامج مش راح يشتغل بكرى على اصدار أو جهاز آخر).
2 - تسميات الاعمدة تكون بعد تعبئة الجدول وليس قبله.

يعني ضع كود تسميات الأعمدة بعد السطر :

كود :

DataGridView1.DataSource = dt

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

كود :

Private Sub txtprice_KeyDown(sender As Object, e As KeyEventArgs) Handles txtprice.KeyDown

        If e.KeyCode = Keys.Enter Then

            For i As Integer = 0 To DGV_PRODUCT.Rows.Count - 1

                    If DGV_PRODUCT.Rows(i).Cells(0).Value = txtid.Text Then

                        MsgBox("هدا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")

                        cl()

                        Exit Sub

                    End If

                Next

                Dim row As DataRow = dt.NewRow

                row(0) = txtid.Text

                row(1) = txtlabel.Text

                row(2) = txtqty.Text

                row(3) = txtprice.Text

                row(4) = txtamount.Text

                dt.Rows.Add(row)

                Me.DGV_PRODUCT.DataSource = dt

                cl()

                tootal()

            End If

    End Sub