Office中国论坛/Access中国论坛

标题: 多选多列列表框的选中行合计问题！ [打印本页]

作者: cyber-bobo 时间: 2014-7-4 10:51
标题: 多选多列列表框的选中行合计问题！
本帖最后由 cyber-bobo 于 2014-7-4 11:36 编辑

如何对多选多列列表框的选中行数值合计！

作者: 盗梦 时间: 2014-7-4 10:53
用代码读取SelectItem里面的项目

作者: cyber-bobo 时间: 2014-7-4 11:36

盗梦发表于 2014-7-4 10:53
用代码读取SelectItem里面的项目

具体点行吗？

作者: cyber-bobo 时间: 2014-7-4 14:02
搜了例子改了一下，但依然不行，问题是列表框是多选的，不是单一总计，望继续指教！

Private Sub List0_AfterUpdate()
Dim i As Integer
Dim hj As Double
For i = 1 To Me.List0.ItemsSelected.Count
hj = hj + Me.List0.Column(1, i)
Next
Me.Text2 = hj
End Sub

作者: 盗梦 时间: 2014-7-4 15:36

cyber-bobo 发表于 2014-7-4 14:02
搜了例子改了一下，但依然不行，问题是列表框是多选的，不是单一总计，望继续指教！

Private Sub List0_ ...

这代码有很多问题。我还是给你一个例子，你研究一下吧

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