تقييم الموضوع :
  • 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)


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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج georgos 8 60 أمس, 04:25 PM
آخر رد: elgokr
  ملئ داتا جرد من تكست nabil.1710 10 178 21-02-19, 03:35 PM
آخر رد: elgokr
  [VB.NET] عملية البيع عبدالرحمن بشري عمر 4 106 20-02-19, 06:08 PM
آخر رد: elgokr
  الحذف والترتيب من داتا جيرد فيو raaddawood 7 247 11-02-19, 11:49 PM
آخر رد: princelovelorn
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 275 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  قسمة صف فى داتا جريد فيو nabil.1710 1 107 24-01-19, 03:31 AM
آخر رد: حريف برمجة
  هل يُمكن إدراج شاشة تحميل تتزامن مع استكمال ظهور جميع أدوات المشروع؟ Hazem1 11 439 23-01-19, 02:54 PM
آخر رد: elgokr
  شاشة الأصناف التابعة للمورد atef_020 5 245 11-01-19, 07:52 AM
آخر رد: sendbad100
Exclamation [كود] احتاج كود لحفظ التغيرات اللتي بالفورم عن طريق الريجستري YousefOkasha 3 488 01-01-19, 01:12 AM
آخر رد: YousefOkasha
  نقل صف من داتا جريد فيو احمد خطاب 5 199 28-12-18, 05:39 AM
آخر رد: حريف برمجة

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


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