主题：[求助]目录树

 每天启动的时候，要实现根据列（深化设计完成时间节点_扩初图会签时间）的日期和系统日期（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楼生成的后台全部数据生产的目录树，姓名后面要增加统计 完成否列等于“未完成”项目的数量，怎么增加呢？

大师，辛苦看看了，报错

 

 

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

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

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

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

'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

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

 

 

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

点击浏览该文件:7.zip

加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈


大师，下面代码，当 深化设计完成时间节点_负责人 是多值字段时不能实现功能，求助怎么修改？
11,44 执行下面代码，44 我有空，不正确

Dim dt As DataTable = DataTables("室内设计项目")

Dim stra = DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_负责人", "(深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' Or 深化设计完成时间节点_全套施工图完成时间_完成否 Is null) And 项目状态 <> '暂停'")
msgbox(stra)
stra = stra.replace(",", "|").replace("|", "','")
'Tables("员工资料").filter = "姓名 not in ('" & stra & "')"
DataTables("员工资料").replacefor("个人状态", "我有空", "姓名 not in ('" & stra & "') and 分配任务组别='深化设计'")



Dim stra2 = DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_负责人", "(深化设计完成时间节点_全套施工图完成时间<#" & Date.Today & "# and 深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' and 项目状态 <> '暂停')")
'msgbox(stra2)
stra2 = stra2.replace(",", "|").replace("|", "','")
'Tables("员工资料").filter = "姓名 not in ('" & stra & "')"
DataTables("员工资料").replacefor("个人状态", "我有空", "姓名  in ('" & stra2 & "') and 分配任务组别='深化设计'")

大师，求助

 

下图，多值列 22，bb  日期2018-12-21大于今天，22 我有空，有误

 

此主题相关图片如下：22我有空，有误，应该是没空.jpg

 

加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈

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

点击浏览该文件:8.zip

可能是我表达不清楚，问的是，和今天日期比较的情况，辛苦了

多值列，下面代码不能正确实现想要的效果的

 

Dim dt As DataTable = DataTables("室内设计项目")

Dim stra2 = DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_负责人", "(深化设计完成时间节点_全套施工图完成时间<#" & Date.Today & "# and 深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' and 项目状态 <> '暂停')")
stra2 = stra2.replace(",", "|").replace("|", "','")
'msgbox(stra2)
Tables("员工资料").filter = "姓名 not in ('" & stra2 & "')"
DataTables("员工资料").replacefor("个人状态", "我有空", "姓名  in ('" & stra2 & "') and 分配任务组别='深化设计'")

大师，上楼代码报错

想实现的是： 深化设计完成时间节点_全套施工图完成时间  晚于今天（过期）未完成的非暂停项目，也自动录入 我有空

32楼的代码有一个问题是， 22 也录入 我有空。不是想要的效果 

32楼的图片  正在处理 22，bb 2018-12-21 未完成     22不应该录入 我有空

 

刚买了本vb.net的书  和 狐表 元旦的新书，在学，辛苦多多指教