VB 如何筛选求和

Dim i As Integer
Dim Lcount As Integer
Lcount = 0
For i = 1 To DataGrid2.ApproxCount
Text1.Text = DataGrid2
Lcount = Lcount + Val(DataGrid2.Columns.Item(2).Text)
Next i
Text1.Text = Lcount
查找到姓名后datagrid2显示的数据
姓名 类型 价格
黄三 1 2
黄三 2 8
黄三 6 5
黄三 4 1
以上代码得出的text1结果为：8（价格2*4行）
正确的text1结果应为：16才对的呀

麻烦我看看哪里出错啦捏？

筛选求和?
姓名为 黄三的价格总和?

不知道你是用什么数据集
sql="select sum(价格) as 和 from 表 where 姓名='黄三'"
rs.open sql,cn
text1=和
rs.close

中间的算法如下： dim sum as integer n = 99 '你输入的最大数 i = 1 sum = 0 do until i > n sum = sum + i i = i + 1 loop '求和到此为止，下面的是求素数 k = 1 do until k > n for j = 1 to k / 2 if k mod j = 0 and j <> 1 then exit for end if next j if j > k / 2 and k <> 2 then msgbox k end if k = k + 1 loop