以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树按条件后台加载问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169878)
--  作者：15666282205
--  发布时间：2021/7/5 9:38:00
--  目录树按条件后台加载问题
老师，我们的项目用的阿里云数据库，我设置了表启动不加载，在目录树里按日期点击加载，现在想实现同时按日期和登录人经办的业务加载，请您指导。
这是目录树的代码：
\'----------------------------------目录树-----------------------
Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then \'要用Name属性,不能用Text属性
    Dim d1 As Date
    Dim d2 As Date
    Dim Year As Integer = e.Node.DataRow("年")
    Dim Month As Integer = e.Node.DataRow("月")
    Dim Day As Integer = e.node.DataRow("日")
    Dim Product As String = e.Node.DataRow("合同序号")
    Dim Product1 As String = e.Node.DataRow("合同名称")
    \'Dim Product2 As String = e.Node.DataRow("考勤员")
    Select Case e.Node.Level
        Case 0
            d1 = New Date(Year,1,1) \'取得该年的第一天
            d2 = new Date(Year,12,31) \'取得该年的最后一天
            Filter = "日期 >= \'" & d1 & "\' And 日期 <= \'" & d2 &  "\'"
        Case 1
            d1 = New Date(Year, Month, 1) \'取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
            Filter = "日期 >= \'" & d1 & "\' And 日期 <= \'" & d2 &  "\'"
        Case 2
            d1 = New Date(Year, Month, day) \'取得该月的第一天
            Filter = "日期 = \'" & d1 & "\'"
        Case 3
            d1 = New Date(Year, Month, day) \'取得该月的第一天
            Filter = "日期 = \'" & d1 & "\' And 合同序号 = \'" & Product & "\'"
           
    End Select
End If
DataTables("现金日记账").LoadFilter = Filter
DataTables("现金日记账").Load()

这是另一组代码，没有目录树，启动时按考勤员加载：
\'-------------------------------筛选-------------------------------
Dim s As String = user.name
With DataTables("当月考勤表2")
    .loadfilter = "考勤员 like \'%" & s & "%\'"
    .load()
End With
目的就是实现以上两个功能的结合，点击目录树日期时，只显示登录人经办的项目，请您指导。
--  作者：有点蓝
--  发布时间：2021/7/5 9:42:00
--  
……
if Filter > "" then
Filter = Filter & " and 考勤员 like \'%" & user.name & "%\'"
else
Filter = "考勤员 like \'%" & user.name & "%\'"
end if
DataTables("现金日记账").LoadFilter = Filter
DataTables("现金日记账").Load()
--  作者：15666282205
--  发布时间：2021/7/5 17:56:00
--  
可以了，谢谢老师。