如何计算列表框的值?

goto2008

大哥。。我主窗体上有一个列表框。里面有个字段叫数量
例:列表框
ID   组别   数量
1    A组    2000
2    B组    3000
3    C组    500


我想在主窗体上弄一个"合计"文本框。。用来汇总数量.
如:

合计: 5500


请教..怎么写这个合计文本框代码?????

wuaza

估计没有直接的办法。大致意思这样，你试试。（好久没弄access，真的生疏了）
Function sumlist()
Dim i As Integer, s As Integer
For i = 0 To Forms.form1.List.ListCount - 1
s = ItemData(数量,i) + s
Next i
End Function

[ 本帖最后由 wuaza 于 2007-12-16 20:50 编辑 ]

andymark

假若列表框的数据引用表里的数据,直接按条件计算表也能得到相同的结果

goto2008

wuaza 大哥，谢谢你的回复，，你的代码，放到我库里，好像还少了什么。。。

我做了个例子。。。你能否在我例上弄弄看

hy560393

没看懂 xuexi

iamee

可以满足了~~~~~~~~~~