是不是想实现这样的功能？

http://smallfools.blog.hexun.com/3146755_d.html

不是阿，我想实现合计的功能，比如你上面的表中“订购量”，它的十项的和就应该是110吧，怎么显示出这个和呢

那也差不多啊。
读取每一行的那一列数据，相加就行了嘛。

Dim dgi As DataGridItem
Dim i As Integer
For Each dgi In DataGrid1.Items
If IsNumeric(dgi.Cells(7).Text) Then
i = i + dgi.Cells(7).Text.Trim
End If
Next