[VB.NET] تعبية داتا قريدفيو في شاشة البيع عن طريق كود المنتج

[VB.NET] تعبية داتا قريدفيو في شاشة البيع عن طريق كود المنتج - نسخة قابلة للطباعة

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

تعبية داتا قريدفيو في شاشة البيع عن طريق كود المنتج - عبدالرحمن بشري عمر - 13-08-18

السلام عليكم اخواني ارجو المساعدة لو سمحتم ان عايز اعمل تعبية للتاتا قريدفيو فية نافذ البيع واستخدمت هذا الكود لكين يعطيني خطاء في التعبية ارجو المساعدة ارجوالمساعدة
هذا هو الكود الاستخدمتها
        Dim x As Integer
        cmd = New OleDbCommand("SELECT * FROM stourg WHERE bx = '" & TextBox2.Text & "' ", con)
        'con.Open()
        da = New OleDbDataAdapter(cmd)
        da.Fill(dt)

        If dt.Rows.Count > 0 Then
            GVMaterials.Rows.Add()
            x = GVMaterials.Rows.Count - 1

            GVMaterials(0, x).Value = dt.Rows(0).Item("a")
            GVMaterials(1, x).Value = dt.Rows(0).Item("bx")
            GVMaterials(2, x).Value = dt.Rows(0).Item("b")
            GVMaterials(3, x).Value = dt.Rows(0).Item("q")
            GVMaterials(4, x).Value = dt.Rows(0).Item("f")
            GVMaterials(5, x).Value = TextBox1.Text
            GVMaterials(6, x).Value = Val(dt.Rows(0).Item("f")) * Val(TextBox1.Text)
            GVMaterials(7, x).Value = dt.Rows(0).Item("k")

            'con.Close()
        End If
        TxTInvoiceAmoun()
        TextBox2.Text = ""
        TextBox1.Text = ""
        TextBox2.Focus()
        TxTNumberItems.Text = GVMaterials.RowCount

RE: تعبية داتا قريدفيو في شاشة البيع عن طريق كود المنتج - galas - 13-08-18

ما هو الخطأ

لقطة شاشة

"screenshot"

من أجل المساعدة

RE: تعبية داتا قريدفيو في شاشة البيع عن طريق كود المنتج - elgokr - 13-08-18

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

بدلاً من استخدام كل هذا الاسطر

كود :

GVMaterials.Rows.Add()

            x = GVMaterials.Rows.Count - 1

            GVMaterials(0, x).Value = dt.Rows(0).Item("a")

            GVMaterials(1, x).Value = dt.Rows(0).Item("bx")

            GVMaterials(2, x).Value = dt.Rows(0).Item("b")

            GVMaterials(3, x).Value = dt.Rows(0).Item("q")

            GVMaterials(4, x).Value = dt.Rows(0).Item("f")

            GVMaterials(5, x).Value = TextBox1.Text

            GVMaterials(6, x).Value = Val(dt.Rows(0).Item("f")) * Val(TextBox1.Text)

            GVMaterials(7, x).Value = dt.Rows(0).Item("k")

فقط استبدله بهذا الاسطر

كود :

           Dim row As String() = {dt.Rows(0).Item("a"), dt.Rows(0).Item("bx"), dt.Rows(0).Item("b"), dt.Rows(0).Item("q"), dt.Rows(0).Item("f"), TextBox1.Text, Val(dt.Rows(0).Item("f")) * Val(TextBox1.Text), dt.Rows(0).Item("k")}

            GVMaterials.Rows.Add(row)

تحياتى لك

وتمنياتى لك التوفيق