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

cyberbalbal　发表于：2014-07-04 10:54:08 　

复制

Top

麥田发表于：2014-07-04 13:40:58

列表框求和示例|对列表框列合计示例[Access软件网]
http://www.accessoft.com/article-show.asp?id=2039

Top

cyberbalbal 发表于：2014-07-04 14:01:10

按例子改上一下，但依然不行，问题是列表框是多选的，不是单一总计，望继续指教！

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

Top

zch 发表于：2014-07-04 14:24:15

Private Sub List0_AfterUpdate()
Dim i As Integer
    Dim hj As Double
     For i = 0 To Me.List0.ListCount - 1
      If Me.List0.Selected(i) Then hj = hj + Me.List0.Column(1, i)
     Next
    Me.Text2 = hj

End Sub

Top

杜超-2号发表于：2014-07-04 16:04:31

上传示例，帮你解决

Top

麥田发表于：2014-07-17 13:25:38

列表框选中列求和示例
http://www.accessoft.com/store_show.asp?ID=56

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

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