列表框的值怎么合计

mmtea　发表于：2013-03-17 00:02:16 　

复制

参照刘小军写的多条件查询，我把他用的子窗体换成了列表框，这就带来了一个问题，列表框的值无法合计，请哪位老师指导下，谢谢！

问题：如何将列表框List1中的未到款的值，合计到文本框Text1中？

Top

殷小宝发表于：2013-03-17 14:54:09

for i=0 to list1.count-1

未到款数=未到款数+cdb(me.list1.column(i))

Top

mmtea 发表于：2013-03-17 16:48:59

谢谢楼上的，运行后提示【方法和数据成员未找到】

Top

菜鸟先飞发表于：2013-03-17 17:04:36

Text1 = Dsum("未到款",“数据表","查询条件")

Top

mmtea 发表于：2013-03-17 21:50:47

多谢三楼，你这个代码是用在子窗体查询上的，我想要的是列表框进行查询,哪位老师帮我看下例子，我想要的是【未到款额】【已到款额】【开票总额】三个，谢谢！

点击下载此附件

Top

mmtea 发表于：2013-03-20 20:54:41

请问哪位老师能帮我回答上面的问题，谢谢了先！

Top

mmtea 发表于：2013-03-21 23:00:27

继续提问，请老师解答~

Top

mmtea 发表于：2013-03-27 20:55:15

十天了，还没得到答案，自己顶起来

Top

叶海峰发表于：2013-03-28 09:07:00

for i=0 to list1.count-1

未到款数=未到款数+cdb(me.list1.column(4))

已到款=已到款+cdb(me.list1.column(3))

开票总额=开票总额+cdb(me.list1.column(2))

Top

mmtea 发表于：2013-03-30 00:11:00

叶老师，你的代码用不了，是不是这样：

for i=0 to list1.listcount-1

未到款数=未到款数+cdbl(me.list1.column(4))

已到款=已到款+cdbl(me.list1.column(3))

开票总额=开票总额+cdbl(me.list1.column(2))

如果是这样的话，显示错误94，无效的Null，你能给个例子吗？谢谢！！

Top

mmtea 发表于：2013-03-30 09:49:11

终于会了，应该是这样：

Private Sub Form_Load()
    Dim i As Integer
    Dim sum未到款数 As Double

    For i = 1 To Me.list1.ListCount - 1
        sum未到款数=sum未到款数+me.list1.column(4,i)

    Next
    Me.未到款数.Locked = False
    Me.未到款数 = sum未到款数
    Me.未到款数.Locked = True
End Sub

Top

mmtea 发表于：2013-03-30 09:50:16

感谢以上帮我解答的老师，多谢。如果解答时能更仔细点那就更好了，再次感谢！！！

Top

殷小宝发表于：2013-03-30 12:50:22

列表框数量计算：

'先要改相应的控件名，使其与下面的代码相符：

Private Sub Form_Load()

For i = 0 To Me.list1.ListCount - 1

未到款数 = 未到款数 + cdb(Me.list1.Column(4))

已到款 = 已到款 + cdb(Me.list1.Column(3))

开票总额 = 开票总额 + cdb(Me.list1.Column(2))

End Sub

Top

mmtea 发表于：2013-03-31 00:06:50

殷老师，你的方法是比我简单，但是运行时老是出现[子过程或函数未定义]，cdb被标示**，我实在没法用呀

Top

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

Access交流中心

列表框的值怎么合计