shahab2025
سه شنبه 03 آبان 1390, 08:37 صبح
سلام دوستان
من با این کد میتونم اعداد صحیح جدولم را جمع بزنم و نمایش بدم ولی نمیتونم اعداد اعشاری با دقت یک هزارم را جمع بزنم لطفاً بگین چگونه باید کدم را اصلاح کنم ؟
Public Function SumCell(ByRef DataGridView As DataGridView, ByRef CellName As String) As Double
Dim cell As DataGridViewCell
SumCell = 0
For Each row As DataGridViewRow In DataGridView.Rows
cell = row.Cells(CellName)
SumCell += CDbl(cell.Value)
Next
Return SumCell.ToString
End Function
من با این کد میتونم اعداد صحیح جدولم را جمع بزنم و نمایش بدم ولی نمیتونم اعداد اعشاری با دقت یک هزارم را جمع بزنم لطفاً بگین چگونه باید کدم را اصلاح کنم ؟
Public Function SumCell(ByRef DataGridView As DataGridView, ByRef CellName As String) As Double
Dim cell As DataGridViewCell
SumCell = 0
For Each row As DataGridViewRow In DataGridView.Rows
cell = row.Cells(CellName)
SumCell += CDbl(cell.Value)
Next
Return SumCell.ToString
End Function