不一定非得要这样计算啊，可以变通一下啊！比如，单击某个单据号后系统记忆此结果，在单击下一个时加上上一个记忆的数字变成一个新的数字，以此类推，就得到了最终的记过了啊！
温馨提示：内容为网友见解，仅供参考
第1个回答 2013-04-08
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追问
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
第2个回答 2013-04-08
能详细描述一下吗？追问
里面有多条数据，选中其中的几条，然后计算总数！
序号 金额
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
第3个回答 2013-04-08
vb*listbox
相似回答
