السلام عليكم ورحمة الله وبركاته
كل عام وانتم جميعا بخير
مشكلتى فى الكود التالى يقوم بجمع عمود فى ListView بدون كسور عشرية
يعنى لو جمع العمود يساوى 12.6 يقوم كتابتها كالتالى 13
الكود المستخدم
Public Function subTotal()
Dim i, j, k As Integer
i = 0
j = 0
k = 0
Try
j = ListView1.Items.Count
For i = 0 To j - 1
k = txtTotal.Text + ListView1.Items(i).SubItems(9).Text
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return k
End Function
يرفع من قيمة الموضوع واهمية الرد