主题：对8.27改进版日历继续提问？

1、在全局变量上加上

   Public _CustomFilter As String = ""       '自定义的删选条件

2、在源代码中找到下列方法，把它替换掉

    '数据表刷新方法
    Public Sub 数据刷新()
        '默认为Access数据源
        Dim Filter As String = n事务时间 & ">=#" & _表首 & "# and " & n事务时间 & "<=#" & _表尾 & "#"
        If 事务主表_dt.SourceType = 2 Then 'SQL Server数据源
            Filter = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "'"
        End If
        If _CustomFilter <> "" Then
            Filter = Filter & " And " &  _CustomFilter
        End If
        事务主表_dt.LoadFilter = Filter
        事务主表_dt.LoadOrder = n事务时间
        事务主表_dt.Load()
    End Sub

3、自己定义_CustomFilter
 
 比如  _CustomFilter = "(用户='张三’or 用户='李四’)"