以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：动态加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52729)
--  作者：jygyyl
--  发布时间：2014/6/21 20:47:00
--  求助：动态加载

如何修改下面代码，加载当前用户近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
--  作者：y2287958
--  发布时间：2014/6/21 21:11:00
--  
参考这里：http://www.foxtable.com/help/topics/2706.htm
--  作者：有点甜
--  发布时间：2014/6/22 9:26:00
--  
 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