主讲人：张志MVP
2003-2013连续10年荣获微软最有价值专家(MVP)
主讲人：张志MVP
主讲人介绍：2003-2013连续10年荣获微软最有价值专家(MVP)
▲ 列表框选中的列进行求和
Private Sub lstSale_AfterUpdate() '列表框选中更新后事件
Dim i As Integer
Dim hj As Double
'循环取值相加
For i = 0 To Me.lstSale.ListCount - 1
If Me.lstSale.Selected(i) Then
hj = hj + Me.lstSale.Column(3, i) '如果选中，则计算合计
End If
Next
Me.Text2 = hj
End Sub
