主题：[求助]目录树

 每天启动的时候，要实现根据列（深化设计完成时间节点_扩初图会签时间）的日期和系统日期（Date.Today）比较后，再执行上楼下面的代码，求助？
DataTables("室内设计项目").DataCols("深化设计完成时间节点_扩初图会签时间").RaiseDataColChanged()  怎样增加一个每天启动自动和系统日期比较执行代码呢？

Dim dt As DataTable = DataTables("室内设计项目")
Dim stra = DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_负责人", "(深化设计完成时间节点_扩初图会签时间>#" & Date.Today & "# or 深化设计完成时间节点_扩初图会签时间 is null)")
msgbox(stra)
stra = stra.replace(",", "|").replace("|", "','")
Tables("员工资料").filter = "姓名 not in ('" & stra & "')"
DataTables("员工资料").replacefor("个人状态", "我有空", "姓名 not in ('" & stra & "')")

 

如何和系统日期比较？比较什么？执行后什么效果？

 

不用每天点击重置列，DataTables("室内设计项目").DataCols("深化设计完成时间节点_扩初图会签时间").RaiseDataColChanged()
放在窗口打开后事件里就可以了嘛？

2，还有一个问题求助，16楼生成的后台全部数据生产的目录树，姓名后面要增加统计 完成否列等于“未完成”项目的数量，怎么增加呢？

1、RaiseDataColChanged可以放在afterOpenProject事件；

 

2、循环每一个节点，统计个数，参考 http://www.foxtable.com/webhelp/scr/2742.htm

 

大师，辛苦看看了，报错

 

 

此主题相关图片如下：报错3.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目.zip

For Each nd As WinForm.TreeNode In abd.AllNodes
    Dim Year As String = nd.DataRow("深化设计完成时间节点_未完工负责人")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "未完成(" & dtf.Compute("count(深化设计完成时间节点_未完工负责人)","深化设计完成时间节点_未完工负责人 = '" & Year & "'") & "个)"
    End Select
Next

 目录树生成时，排除 个人状态= 我有空  的人员，下面代码怎么修改呢？求助

'Dim stra22 As String = "|" & DataTables("空闲人员统计").GetComboListString("深化设计完成时间节点_负责人") & "|"

Dim stra22 As String = "|" & DataTables("空闲人员统计").GetComboListString("深化设计完成时间节点_负责人","[个人状态]= '我有空'") & "|"

For Each dr As DataRow In DataTables("空闲人员统计").DataRows

    If dr("深化设计完成时间节点_负责人") > "" Then

        For Each s As String In dr("深化设计完成时间节点_负责人").split(",")

            Dim nd As WinForm.TreeNode

            If s > "" AndAlso stra22.Contains("|" & s & "|") AndAlso trv22.Nodes.Contains(s) = False Then

                nd = trv22.nodes.Add(s)

                nd.text = nd.name & " 完成 " & DataTables("室内设计项目").compute("count(深化设计完成时间节点_未完工负责人)", "深化设计完成时间节点_未完工负责人 like '%" & s & "%'")

            End If

        Next

    End If

Next

For Each dr As DataRow In DataTables("空闲人员统计").Select("[个人状态] <> '我有空' or [个人状态] is null")
   
    If dr("深化设计完成时间节点_负责人") > "" Then
       
        For Each s As String In dr("深化设计完成时间节点_负责人").split(",")
           
            Dim nd As WinForm.TreeNode
           
            If s > "" AndAlso trv22.Nodes.Contains(s) = False Then
               
                nd = trv22.nodes.Add(s)
               
                nd.text = nd.name & " 完成 " & DataTables("室内设计项目").compute("count(深化设计完成时间节点_未完工负责人)", "深化设计完成时间节点_未完工负责人 like '%" & s & "%'")
               
            End If
           
        Next
       
    End If
   
Next

 大师，还有一个问题求助：
非经理用户的项目参与人登录的时候，只能显示 自己参与的项目（代码如下）

 DataTables("室内设计项目").compute

 

改成

 

 DataTables("室内设计项目").sqlcompute