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


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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 4 1,039 19-01-21, 02:41 AM
آخر رد: mr_hso
  استعلام SQL مع داتا قريد فيو Owz 0 79 10-01-21, 03:02 PM
آخر رد: Owz
  اريد ربط تطبيق اندرويد بتطبيق سطح المكتب عن طريق مودم wifi بدون نت alfaiz678 2 221 13-12-20, 02:22 PM
آخر رد: alfaiz678
  [VB.NET] كيفية ادخال البيانات عن طريق الdatagridviwe ليتم حفظها في sql fadi78 2 338 09-12-20, 04:26 PM
آخر رد: عبد العزيز البسكري
  شاشة قراءة الاسعار من قاعدة البيانات عبدالكريم رشدان 0 153 08-12-20, 10:46 PM
آخر رد: عبدالكريم رشدان
  [VB.NET] ماهي طريقة تعبئة بيانات في داتاقريد فيو 2 مرتبطة بحقل في داتا فريد فيو1 Ad Heart 2 379 26-11-20, 03:03 AM
آخر رد: Anas Mahmoud
  [VB.NET] اريد اظهار الجمع الموجود في داتا قريد لكل شهر يظهر في label rochdi191 13 1,031 10-11-20, 11:55 PM
آخر رد: rochdi191
  عكس ترتيب الصفوف في داتا جريد atefkhalf2004 4 262 26-10-20, 08:07 PM
آخر رد: atefkhalf2004
  مساعدة في داتا جريد فيو cordava 1 230 22-10-20, 08:09 PM
آخر رد: Lathe1
  [VB.NET] سؤال توضيحي حول الحفظ عن طريق CommandBuilder larbihamri 2 349 19-10-20, 10:07 AM
آخر رد: larbihamri

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


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