[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

[sendbad100]

السلام عليكم

جرب تغير نوع المتغير  من  

استبدل  

 Dim sum As Integer = 0

ب

PHP كود :

Dim sum As Double = 0 


[VB.NET]

نفس المشكلة

[sendbad100]

Convert.ToDouble

---

استبدل هذه
Convert.ToInt32

[VB.NET]

الله يعطبك العافية مشكور

[حريف برمجة]

(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()