بايندينك سورس و فيلتر

[sh2007]

با سلام خدمت دوستان
دوستان من يك ديتا تيبل دارم توي ديتاستم كه اطلاعاتي رو داره حالا بر حسب نياز يك بايندينگ سورس به اون وصل كردم كه كاربر بر اساس اون اطلاعات خودش رو فيلتر مي كنه و گزارشگيري مي كنه
يعني از پروپرتي Filter بايندينگ استفاده كردم
اما وقتي كاربر چندين با پياپي فيلتر گيري مي كند عمل فيلترگيري درست انجام نمي شود دوستان مي تونند حدس بزنند اشكال از چيست و يا راهي ديگه بجز اين دارن يا نه
ممنون

[sh2007]

دوستان كد اينه بنظر شما اشكالي داره



With BindingSource1
.RemoveFilter()

If cobomBoX1.SelectedIndex = 0 Then
.RemoveFilter()
ElseIf cobomBoX1.SelectedIndex = 1 Then
.Filter = "Mandeh <> 0"
ElseIf cobomBoX1.SelectedIndex = 2 Then
.Filter = "Mandeh = 0"
ElseIf cobomBoX1.SelectedIndex = 3 Then
.Filter = "Mandeh < 0"
End If
.MoveFirst()

For I = 1 To .Count
AddData() ' اين سابروتين فقط اطلاعات رو درون جدول مي ريزد


.MoveNext()
Next I
End With