DataGrid所有列内容相加

Question

问题1 
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To DataGrid1.Row
DataGrid1.Row = i
DataGrid1.Columns(5) = (DataGrid1.Columns(3) - DataGrid1.Columns(4)) * DataGrid1.Columns(2)
Next
Label1.Caption = "合计:" & DataGrid1.Columns(5) & "元"~~~~这里写什么代码可以实现将所有第5列的数据相加？ (大概有11行)
End Sub 问题2 
Adodc+DataGrid 目前我只允许编辑DataGrid第4列的数据 怎么能使第4列数据不更新到数据库？ 只要它实现当前显示功能谢谢了

Answer 1

问题1 
Private Sub Command1_Click() 
Dim i As Integer 
dim intSum as doubleFor i = 0 To DataGrid1.Row 
DataGrid1.Row = i 
DataGrid1.Columns(5) = (DataGrid1.Columns(3) - DataGrid1.Columns(4)) * DataGrid1.Columns(2) 
intsum=intsum + DataGrid1.Columns(5)
Next 
Label1.Caption = "合计:" & intsum & "元"  '~~~~这里写什么代码可以实现将所有第5列的数据相加？ (大概有11行) 
End Sub 问题2 
Adodc+DataGrid 目前我只允许编辑DataGrid第4列的数据 怎么能使第4列数据不更新到数据库？ 只要它实现当前显示功能 不用绑定的方式，用adodb付值

Answer 2

一样啊 Label1里还是只显第一行第5列的数值 而不是第5列所有行相加后的数值

Answer 3

For i = 0 To DataGrid1.Row 
改成
For i = 0 To Adodc1.Recordset.RecordCount-1