代码出错？

stefanie

请帮我看看这段组合框的代码，总是不能应用筛选。
其中processedmark 和 bookinincome 是check box.

Private Sub Frame28_AfterUpdate()
If Frame28 = 1 Then
    Me.FilterOn = False
    End If
    If Frame28 = 2 Then
    Me.Filter = "rocessedmark='yes'"
    Me.FilterOn = True
    End If
    If Frame28 = 3 Then
    Me.Filter = "rocessedmark='no'"
    Me.FilterOn = True
    End If
    If Frame28 = 4 Then
    Me.Filter = "BookinIncome='yes'"
    Me.FilterOn = True
    End If
    If Frame28 = 5 Then
    Me.Filter = "BookinIncome='no'"
    Me.FilterOn = True
    End If
End Sub

Trynew

BookinIncome是逻辑型吧？
Me.Filter = "BookinIncome=False"
Me.Filter = "BookinIncome=True"