VB datagridview底部合计续

LangJing_1 2009-10-19 05:09:29
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

以上红色位出现绿色虚线,请问怎么回事,怎么解决
...全文
65 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
jhone99 2009-10-19
  • 打赏
  • 举报
回复
估计内定了
LangJing_1 2009-10-19
  • 打赏
  • 举报
回复
上一编你没给到正确答案,辛苦你了,这编给你补回

全部改成 double 就行了,在一个空表新做的没问题,一加到我那程序里就出问题了

现在全部改好了,也同样谢谢你
getemail 2009-10-19
  • 打赏
  • 举报
回复
不好意思,一不小心看到你的结帖率了
getemail 2009-10-19
  • 打赏
  • 举报
回复
cSum0=Val(cSum0) + val(DataGridView4.Rows(i).Cells(0).Value )
....
LangJing_1 2009-10-19
  • 打赏
  • 举报
回复
第一列取的总值 怎么显示是 10001000 而不是2000呢郁闷死了
改了第一次可以算了,后面的又不能算,最面的能算,第一列又不能算
getemail 2009-10-19
  • 打赏
  • 举报
回复
Dim cSum0, cSum1, cSum2, cSum3, cSum4, cSum5, cSum6, cSum7 As Single

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧