+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مساعدة محتاج كود جمع قيم عمود فى الداتا جريد (/showthread.php?tid=9994)
مساعدة محتاج كود جمع قيم عمود فى الداتا جريد - osemy - 10-08-13
السلام عليكم ورحمة الله وبركاته
عاوز كود جمع عمود كامل فى الداتا جريد خاص بسعر الأصناف وإظهارة فى تيكست بوكس بعد الضغط على زر إجمالى الفاتورة أرجو المساعدة ضرورى جدا إخوانى
مساعدة محتاج كود جمع قيم عمود فى الداتا جريد - محمود رغمان - 10-08-13
ضع هذا الكود فى المفتاح
جمع عمود داخل الداتا جريد فيو
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
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 - 10-08-13
[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]
مساعدة محتاج كود جمع قيم عمود فى الداتا جريد - انور ليمان - 24-05-14
ما واضح يا اخي العزيز
RE: مساعدة محتاج كود جمع قيم عمود فى الداتا جريد - hoshosgost@yahoo.com - 28-07-17
هنا انتا عرفت 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
تحياتي
حسام
RE: مساعدة محتاج كود جمع قيم عمود فى الداتا جريد - atyaf - 27-02-18
(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 - 112 داه رقم العمود ولازم تحت =+ علشان ميغرلكش القيم ' 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.
بعد التطبيق ظهرت لي الرسالة اعلاه