主题：[求助]目录树

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

点击浏览该文件: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 分配任务组别='深化设计'")