主题：求助：动态加载

 If User.Group = "雇员" '如果用户分组是雇员
    Dim fl As String = "[雇员] = '" & User.Name & "' and 日期 >= #" & Date.Today.AddDays(-10) & "#"
    If e.DataTable.LoadFilter = "" Then
        e.DataTable.LoadFilter = fl
    ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then '如果没有包括雇员条件
        e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl
    End If
End If