تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعبية داتا قريدفيو في شاشة البيع عن طريق كود المنتج
#1
السلام عليكم اخواني ارجو المساعدة لو سمحتم ان عايز اعمل تعبية للتاتا قريدفيو فية نافذ البيع واستخدمت هذا الكود لكين يعطيني خطاء في التعبية ارجو المساعدة ارجوالمساعدة
هذا هو الكود الاستخدمتها
        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
الرد
تم الشكر بواسطة:
#2
ما هو الخطأ 
لقطة شاشة
 "screenshot"
من أجل المساعدة

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
ساهم دائماً فى تقديم    لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار

الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

بدلاً من استخدام كل هذا الاسطر
كود :
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)


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد ان انفذ امر عن طريق SSH لجهاز اندرويد عن طريق VB.NET mohammadsaeed01 5 85 20-04-19, 02:07 PM
آخر رد: elgokr
  [سؤال] كيف اضافة صورة عن طريق الاسكانر وهج الصحراء 2 112 19-04-19, 12:42 PM
آخر رد: elgokr
  [VB.NET] استفسار :- تحويل داتا من Form1 الى Form2 dubai.eig 5 145 06-04-19, 09:08 PM
آخر رد: elgokr
Photo كيفية دمج 2 داتا حريد فيو فى داتا جريد فيو واحدة code3x 0 69 27-03-19, 11:41 AM
آخر رد: code3x
  السلام عليكم محتاج كود صغير للبحث داخل الكمبو بوكس عن طريق الكمبو بوكس نفسه mohamedgadain61 2 148 19-03-19, 04:07 PM
آخر رد: mohamedgadain61
  الرجوع الي نفس سطر في داتا جريد atefkhalf2004 1 105 16-03-19, 11:33 AM
آخر رد: atefkhalf2004
  كيفية جمع عمود داتا جريد به قيمة فارغة وتجاوز الخطأ alfaiz678 5 258 01-03-19, 03:10 PM
آخر رد: حريف برمجة
  [سؤال] الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج georgos 8 194 23-02-19, 04:25 PM
آخر رد: elgokr
  ملئ داتا جرد من تكست nabil.1710 10 351 21-02-19, 03:35 PM
آخر رد: elgokr
  [VB.NET] عملية البيع عبدالرحمن بشري عمر 4 198 20-02-19, 06:08 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم