+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في عملية الجمع (/showthread.php?tid=22711)
مشكلة في عملية الجمع - VB.NET - 26-11-17
عندي عمود في الداتا جريد طبعا من نوع عملة وفيه اسعار سلع مثلا :
10.55
8.60
5.05
استخدم كود لجمع قيمة العمود ثم اظهارها في التكست بوكس هذا الكود الي استخدمه
Dim sum As Integer = 0
For i As Integer = 0 To dgv_data.Rows.Count - 1
sum += Convert.ToInt32(dgv_data.Rows(i).Cells(6).Value)
Next
T2.Text = sum.ToString()
لاكن المشكلة ان عملية الجمع تتم بدون الكسور يعني الهلالات يعني مثلا
10.50 + 2 = 13.50
يعطيني 13 فقط واذا كانت اكثر من 50 هللة يكمل عليها واحد يعني
10.80 + 2 = 12.80
يعطيني 13
RE: مشكلة في عملية الجمع - sendbad100 - 26-11-17
السلام عليكم
جرب تغير نوع المتغير من
استبدل
Dim sum As Integer = 0
ب
PHP كود :
Dim sum As Double = 0
RE: مشكلة في عملية الجمع - VB.NET - 26-11-17
نفس المشكلة
RE: مشكلة في عملية الجمع - sendbad100 - 26-11-17
Convert.ToDouble
استبدل هذه
Convert.ToInt32
RE: مشكلة في عملية الجمع - VB.NET - 26-11-17
الله يعطبك العافية مشكور
RE: مشكلة في عملية الجمع - حريف برمجة - 26-11-17
(26-11-17, 02:04 PM)VB.NET كتب : عندي عمود في الداتا جريد طبعا من نوع عملة وفيه اسعار سلع مثلا :
10.55
8.60
5.05
استخدم كود لجمع قيمة العمود ثم اظهارها في التكست بوكس هذا الكود الي استخدمه
Dim sum As Integer = 0
For i As Integer = 0 To dgv_data.Rows.Count - 1
sum += Convert.ToInt32(dgv_data.Rows(i).Cells(6).Value)
Next
T2.Text = sum.ToString()
لاكن المشكلة ان عملية الجمع تتم بدون الكسور يعني الهلالات يعني مثلا
10.50 + 2 = 13.50
يعطيني 13 فقط واذا كانت اكثر من 50 هللة يكمل عليها واحد يعني
10.80 + 2 = 12.80
يعطيني 13
جرب هذا السطر :
كود :
T2.Text = (From row In dgv_data.Rows Select CDbl(row.Cells(6).Value)).Sum()