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

qqq123123

zjdh 发表于 2012-5-9 18:23
忘了清零了
Private Sub CommandButton1_Click()   
    If ComboBox1 = "" Then Exit Sub

老师有一个问题，再麻烦下老师。

在金额1.2.3位置，如只输入1项金额，就会出现这个错误提示~！请老师再修正下，谢谢！！！

zjdh

修改以下语句
For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).SubItems(6) <> "" Then 金额1 = ListView1.ListItems(i).SubItems(6) + 金额1
        If ListView1.ListItems(i).SubItems(7) <> "" Then 金额2 = ListView1.ListItems(i).SubItems(7) + 金额2
        If ListView1.ListItems(i).SubItems(8) <> "" Then 金额3 = ListView1.ListItems(i).SubItems(8) + 金额3
Next

qqq123123

zjdh 发表于 2012-5-10 10:56
修改以下语句
For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).SubItems(6)  ...

谢谢老师，你真棒···················！谢谢您真是我的偶像！{:34:}