Office中国论坛/Access中国论坛

标题: 如何计算列表框的值? [打印本页]

作者: goto2008 时间: 2007-12-16 20:03
标题: 如何计算列表框的值?
大哥。。我主窗体上有一个列表框。里面有个字段叫数量
例:列表框
ID 组别数量
1 A组 2000
2 B组 3000
3 C组 500

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

合计: 5500

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

作者: wuaza 时间: 2007-12-16 20:48
估计没有直接的办法。大致意思这样，你试试。（好久没弄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 时间: 2007-12-16 20:59
假若列表框的数据引用表里的数据,直接按条件计算表也能得到相同的结果

作者: goto2008 时间: 2007-12-27 08:57
wuaza 大哥，谢谢你的回复，，你的代码，放到我库里，好像还少了什么。。。

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

作者: hy560393 时间: 2008-1-2 20:51
没看懂

xuexi

作者: iamee 时间: 2008-1-3 00:21
可以满足了~~~~~~~~~~

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)