主题：求助：动态加载

如何修改下面代码，加载当前用户近10天增加的数据？求高手赐教！

If User.Group = "雇员" '如果用户分组是雇员
    Dim fl As String = "[雇员] = '" & User.Name & "'"
    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