主题：[求助]目录树

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

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

我测试没问题。如有问题，那就是你加载的数据不全。你可以改成 sqlGetComboListString

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

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

大师，求助

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

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

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

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

点击浏览该文件:8.zip

无语，看32楼啊

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

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

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

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

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 分配任务组别='深化设计'")

无法理解你的逻辑。直接用原来的代码即可。

不然改成

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

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

大师，上楼代码报错

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

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

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

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

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

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