[已解决]老师~！！！如何将ListView1中的金额1.2.3列进行求和？？？

qqq123123 · 发表于 2012-5-7 16:18

本帖最后由 qqq123123 于 2012-5-8 12:17 编辑

请老师帮忙，如何才能在点击（增加）按钮后，自动将金额1.2.3进行求和

单据输入求和.rar (111.28 KB, 下载次数: 37)

qqq123123 · 发表于 2012-5-8 13:40

有没有老师能帮帮我·············{:16:}

zgbjerry · 发表于 2012-5-8 20:16

学习下正好有这方面的疑惑。

兰色幻想 · 发表于 2012-5-9 10:32

给你一个例子

listview控件红色字体合计行设置.rar (17.2 KB, 下载次数: 41)

qqq123123 · 发表于 2012-5-9 11:01

兰色幻想发表于 2012-5-9 10:32
给你一个例子：

版主，我需要这种效果的例子，您有吗？

兰色幻想 · 发表于 2012-5-9 11:05

你你在Listview时做一个循环，计算出和放在黄色行不就行了？

xm2012 · 发表于 2012-5-9 12:12

兰色幻想发表于 2012-5-9 11:05
你你在Listview时做一个循环，计算出和放在黄色行不就行了？

请版主帮忙把楼主的附件注译下，并把版主你所说的循环加上。

相信坛里很多朋友也想知道，想学习学习！！！

zjdh · 发表于 2012-5-9 14:21

本帖最后由 zjdh 于 2012-5-9 14:30 编辑

Private Sub CommandButton1_Click() '添加数据
If ComboBox1 = "" Then Exit Sub
Dim Itm As ListItem, i As Integer
Set Itm = ListView1.ListItems.Add()
Itm.Text = ComboBox1
For i = 1 To 8
Itm.SubItems(i) = Controls("ComboBox" & i + 1)
Next
Itm.SubItems(10) = ComboBox10
Itm.SubItems(11) = ComboBox11
Itm.SubItems(12) = ComboBox12
For i = 7 To 10
Me.Controls("ComboBox" & i) = ""
Next
For i = 1 To ListView1.ListItems.Count
金额1 = ListView1.ListItems(i).SubItems(6) + 金额1
金额2 = ListView1.ListItems(i).SubItems(7) + 金额2
金额3 = ListView1.ListItems(i).SubItems(8) + 金额3
Next
Label1 = "合计"
Label2 = Format(金额1, "#,###.00")
Label3 = Format(金额2, "#,###.00")
Label17 = Format(金额3, "#,###.00")
End Sub

复制代码

qqq123123 · 发表于 2012-5-9 15:59

zjdh 发表于 2012-5-9 14:21

老师！合计的数值有错误，

金额1 金额2 金额3 数值都输入2，然后点击增加，当再次输入相同的数值时，发现合计有误。

合计应该是4才对不是22

请老师再看看，谢谢~！

zjdh · 发表于 2012-5-9 18:23

忘了清零了

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then Exit Sub
Dim Itm As ListItem, i As Integer
Set Itm = ListView1.ListItems.Add()
Itm.Text = ComboBox1
For i = 1 To 8
      Itm.SubItems(i) = Controls("ComboBox" & i + 1)
Next
Itm.SubItems(10) = ComboBox10
Itm.SubItems(11) = ComboBox11
Itm.SubItems(12) = ComboBox12
For i = 7 To 10
      Me.Controls("ComboBox" & i) = ""
Next
金额1= 0
金额2= 0
金额3= 0
For i = 1 To ListView1.ListItems.Count
      金额1= ListView1.ListItems(i).SubItems(6) + 金额1
      金额2= ListView1.ListItems(i).SubItems(7) + 金额2
      金额3 = ListView1.ListItems(i).SubItems(8) + 金额3
Next
Label1 = "合    计"
Label2 = Format(金额1, "#,###.00")
Label3 = Format(金额2, "#,###.00")
Label17 = Format(金额3, "#,###.00")
End Sub

		自动登录	找回密码
密码			注册

[已解决]老师~！！！如何将ListView1中的金额1.2.3列进行求和？？？

评分

评分