[osemy]

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

عاوز كود جمع عمود كامل فى الداتا جريد خاص بسعر الأصناف وإظهارة فى تيكست بوكس بعد الضغط على زر إجمالى الفاتورة أرجو المساعدة ضرورى جدا إخوانى

[محمود رغمان]

ضع هذا الكود فى المفتاح
جمع عمود داخل الداتا جريد فيو

If DGV.RowCount – 1 > 0 Then

Dim sum As Double
For i = 0 To DGV.RowCount - 1
sum += DGV.Rows(i).Cells(5).Value
Next
TextBox1.Text = Format(sum, "###.##")

End If

حيث ( Cells (5 هو العمود المراد جمع قيمه
جملة Format لتنسيق المخرجات

وبالنسبة لجمع قيم معينة فذلك يتم عن طريق عملية التصفية أو البحث فبعد عرض نتائج البحث فى الداتاجريد يتم إجراء عملية الجمع أما يدويا أو تلقائيا على حسب رغبتك

[Sajad]

[b]السلام عليكم

طريقة مختصرة باستخدام استعلام LINQ

كود :

Dim totalPrice = (From row In DataGridView1.Rows Select CDbl(row.Cells("Ptotal").Value)).Sum()
        txtTotalPrice.Text = totalPrice.ToString("C", New CultureInfo("ar-IQ"))

النتيجة سوف تظهر هكذا:

على سبيل المثال

4,676.00 د.ع

يعني دينار عراقي اما اذا اردت ان تظهر نوع العملة حسب بلدة فقط غير IQ الى رمز بلدك

موفق ان شاءالله[/b]

[انور ليمان]

ما واضح يا اخي العزيز

[hoshosgost@yahoo.com]

هنا انتا عرفت 3 متغيرات من نوع دابل' Dim x, y, z As Double

هنا داه علشان يعدلك العواميد'        For i As Integer = 0 To Masrof_lawyersDataGridView.RowCount - 1

12 داه رقم العمود ولازم تحت =+ علشان ميغرلكش القيم       '      x += Masrof_lawyersDataGridView.Rows(i).Cells(12).Value

        '    y += Masrof_lawyersDataGridView.Rows(i).Cells(13).Value

  '      Next

متغير داه علشان يديك الفرق     '    z = x - y

وهنا علشان تعرض القيمة الي طلعت من مجموع العمود في تكست بعد الاكس تو استرنج علشان هيا قيمة المتغير '        TextBox1.Text = x.ToString

     '   TextBox2.Text = y.ToString

     '   TextBox3.Text = z.ToString

اتمني اكون افدتك ملحوظة اللغة  vb.net 

تحياتي

             حسام

[atyaf]

(28-07-17, 06:14 AM)hoshosgost@yahoo.com كتب :

هنا انتا عرفت 3 متغيرات من نوع دابل' Dim x, y, z As Double

هنا داه علشان يعدلك العواميد'        For i As Integer = 0 To Masrof_lawyersDataGridView.RowCount - 1

12 داه رقم العمود ولازم تحت =+ علشان ميغرلكش القيم       '      x += Masrof_lawyersDataGridView.Rows(i).Cells(12).Value

        '    y += Masrof_lawyersDataGridView.Rows(i).Cells(13).Value

  '      Next

متغير داه علشان يديك الفرق     '    z = x - y

وهنا علشان تعرض القيمة الي طلعت من مجموع العمود في تكست بعد الاكس تو استرنج علشان هيا قيمة المتغير '        TextBox1.Text = x.ToString

     '   TextBox2.Text = y.ToString

     '   TextBox3.Text = z.ToString

اتمني اكون افدتك ملحوظة اللغة  vb.net 

تحياتي

             حسام

---

An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll

Additional information: Conversion from type 'DBNull' to type 'Integer' is not valid.

بعد التطبيق ظهرت لي الرسالة اعلاه