主题：[求助]目录树

 辛苦大师再看看了，上楼的代码替换在哪里不懂，想实现的功能我再详细描述一下了：

 

多值列（深化设计完成时间节点_未完工负责人）提取不重复的负责人（目录树的节点只能是1个负责人）
后台所有数据（深化设计完成时间节点_未完工负责人）,有条件筛选生成2个目录树显示：

窗口目录树1 条件：显示部门=深化设计   有空的员工
窗口目录树2 条件：显示部门=深化设计   没空的员工

思路：
窗口打开时，后台生成临时表   空闲人员统计表存在的负责人,员工资料表的个人状态列值自动等于 我有空;
反之空闲人员统计 表不存在的负责人,员工资料表的个人状态列值自动等于 我没空

 

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

点击浏览该文件:2.foxdb

1、有空

 

SELECT * From {室内设计项目} as a inner join {员工资料} as b on a.深化设计完成时间节点_未完工负责人 like ('%' + b.姓名 + '%') where (深化设计完成时间节点_扩初图会签时间_完成否 = '未完成' Or 深化设计完成时间节点_扩初图会签时间_完成否 Is null) And 项目状态 <> '暂停' and 分配任务组别='深化设计' and 个人状态 = '我有空'

 

2、没空

 

SELECT * From {室内设计项目} as a inner join {员工资料} as b on a.深化设计完成时间节点_未完工负责人 like ('%' + b.姓名 + '%') where (深化设计完成时间节点_扩初图会签时间_完成否 = '未完成' Or 深化设计完成时间节点_扩初图会签时间_完成否 Is null) And 项目状态 <> '暂停' and 分配任务组别='深化设计' and (个人状态 <> '我有空' or 个人状态 IS NULL)

 

 

 

 

上楼代码还是不懂怎么用，报错：

afterload代码辛苦大师，完整粘贴过来了，谢了

 

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

 

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

点击浏览该文件:3.foxdb

替换红色代码

 

Dim trv As WinForm.TreeView = e.form.Controls("TreeView1")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "database"
cmd.CommandText = "SELECT DISTINCT 设计任务要求_城市,设计任务要求_城市 From {室内设计项目}"
dt = cmd.ExecuteReader()
trv.BuildTree(dt, "设计任务要求_城市|设计任务要求_城市")

大师，目录树节点，要实现不是多值55,44  或66,44

要实现目录树效果：

44

55

66

 

怎么修改呢？

 

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

点击浏览该文件:4.foxdb

Dim trv As WinForm.TreeView = e.form.Controls("TreeView1")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "database"
cmd.CommandText = "SELECT * From {室内设计项目} as a inner join {员工资料} as b on a.深化设计完成时间节点_未完工负责人 like ('%' + b.姓名 + '%') where (深化设计完成时间节点_扩初图会签时间_完成否 = '未完成' Or 深化设计完成时间节点_扩初图会签时间_完成否 Is null) And 项目状态 <> '暂停' and 分配任务组别='深化设计' and 个人状态 = '我有空'"
dt = cmd.ExecuteReader()
trv.BuildTree(dt, "姓名")

 大师，还有2个功能求助：
1、室内设计项目表，该员工的所有行：深化设计完成时间节点_扩初图会签时间_完成否 = 已完成，该员工资料表的个人状态列，自动录入 “我有空”
2、室内设计项目表，该员工的所有行：深化设计完成时间节点_扩初图会签时间 都是今天之前的日期，该员工资料表的个人状态列，自动录入 “我有空”

1、

 

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 & "')")

 

2、

 

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("员工资料").replacefor("个人状态", "我有空", "姓名 not in ('" & stra & "') and 分配任务组别='深化设计'")