我的窗口里有一个月历插件，每次单击显示选定的日期内容，此表有一时段列，希望时段列=5取消，不显示。不知问题出在哪？

Tables("派工").Filter = "截止日期 = #" & e.Sender.Value & "#"
Static lst As List(of Date) \'定义一个静态集合变量,用于存储选择的截止日期
If lst Is Nothing Then
    lst = New List(of Date)
End If
If ModifierKey <> Keys.Control Then \'如果没有按下Ctrl键
    lst.Clear() \'清除以前的截止日期
End If
If lst.Contains(e.Sender.Value) = False Then \'如果集合不包括按下的截止日期
    lst.Add(e.Sender.Value) \'则向集合添加此截止日期
End If
If lst.Count = 1 Then \'如果只选择了一个截止日期,则直接筛选此截止日期的派工
    Tables("派工").Filter = "截止日期 = #" & e.Sender.Value & "#"
Else \'否则用In运算符筛选选定的多个截止日期的派工
    Dim v As String
    For i As Integer = 0 To lst.Count - 1
        v = v & "#" & lst(i) & "#,"
    Next
    v = v.Trim(",")
    Tables("派工").Filter = "截止日期 In (" & v & ")"
End If

  Tables("派工").Filter = "时段 <> \'5取消\'"

谢谢！