Question

vb listbox 复选框选中多项进行计算

Answer 1

不一定非得要这样计算啊，可以变通一下啊！比如，单击某个单据号后系统记忆此结果，在单击下一个时加上上一个记忆的数字变成一个新的数字，以此类推，就得到了最终的记过了啊！

Answer 2

Private Sub Command1_Click()
Dim i As Integer, x As Long
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
x = x + Val(List1.List(i))
End If
Next
MsgBox x

End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 100 To 150
List1.AddItem i
Next

End Sub

追问

 我是想实现，在list中选择需要计算在一起的单据号，然后单击计算，得到总金额，因为这些单据号都是未付款的！

追答

金额放入.ItemData()

Private Sub Command1_Click()
Dim i As Integer, x As Long
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
x = x + Val(List1.ItemData(i))
End If
Next
MsgBox x

End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 100 To 150
List1.AddItem i
List1.ItemData(i - 100) = i - 100
Next

End Sub

Answer 3

能详细描述一下吗？

追问

里面有多条数据，选中其中的几条，然后计算总数！
序号 金额
1 5
2 3
3 6
我只是选择1和3的单据号进行计算！

追答

'Text1是张数，Text2是金额
Private Sub Command1_Click()
Dim i, n, sum As Long
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then sum = sum + Val(List1.List(i)): n = n + 1
Next
Text1 = n
Text2 = sum
End Sub

Answer 4

vb*listbox