پرسش جمع اعداد

[میثم مقدم نیا]

سلام
در داخل یوزر فرم یک لیست باکس دارم میخوام جمع مبالغ موجود در لیست باکس در یک تکس باکس یا لیبل نمایش داده بشه
برای این کار من از کد زیر استفاده کردم

Private Sub sum_subjects()
Dim total_v As Double
    For i = 0 To ListBox1.ListCount - 1
        total_v = total_v + Val(ListBox1.Column(5, i))
        geo_v = geo_v + Val(ListBox1.Column(6, i))
    Next
        sum_total.Caption = total_v
        sum_geo.Caption = geo_v
End Sub
​ 

مشکل اینجاست که من وقتی درون فرم سرچ میزنم جمع کل را نمایش میده
چطور کدم را اصلاح کنم که جمع سرچم را نمایش بده

[Amir Ghasemiyan]

سلام دوست عزیز
اگر کل کدهاتون رو ببینم بهتر میتونم راهنمایی کنم اما با چیزی که من میبینم به نظر میاد که شما بعد از فیلتر محاسبات رو مجدد باید انجام بدید. یعنی همین قطعه کد sum_subjects باید بعد از عمل فیلتر شدن مجدد انجام بشه