VB datagridview底部合计续

Question

 Dim cSum0, cSum1, cSum2, cSum3, cSum4, cSum5, cSum6, cSum7 As String
     DataGridView1.Rows.Add(textbox1.Text, textbox2.Text)
        DataGridView4.Rows.Add(textbox1.Text,textbox1.Text)
 
           For i As Int32 = 0 To DataGridView3.Rows.Count - 1
            cSum0 = cSum0 + DataGridView4.Rows(i).Cells(0).Value
            cSum1 = cSum1 + DataGridView4.Rows(i).Cells(3).Value
            cSum2 = cSum2 + DataGridView4.Rows(i).Cells(4).Value
            cSum3 = cSum3 + DataGridView4.Rows(i).Cells(5).Value
            cSum4 = cSum4 + DataGridView4.Rows(i).Cells(6).Value
            cSum5 = cSum5 + DataGridView4.Rows(i).Cells(7).Value
            cSum6 = cSum6 + DataGridView4.Rows(i).Cells(8).Value
            cSum7 = cSum7 + DataGridView4.Rows(i).Cells(9).Value
            
            L.Text = CStr(cSum0)
            G.Text = CStr(cSum1)
            Y.Text = CStr(cSum2)
            F.Text = CStr(cSum3)
            E.Text = CStr(cSum4)
            U.Text = CStr(cSum5)
            S.Text = CStr(cSum6)
            P.Text = CStr(cSum7)
         next以上红色位出现绿色虚线，请问怎么回事，怎么解决

Answer 1

Dim cSum0, cSum1, cSum2, cSum3, cSum4, cSum5, cSum6, cSum7 As Single

Answer 2

cSum0=Val(cSum0) + val(DataGridView4.Rows(i).Cells(0).Value )
....

Answer 3

上一编你没给到正确答案，辛苦你了，这编给你补回全部改成 double 就行了，在一个空表新做的没问题，一加到我那程序里就出问题了现在全部改好了，也同样谢谢你