[حريف برمجة]

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