主题：[求助]目录树

用户登录的时候，只能显示 自己参与的项目

DataTables("室内设计项目").LoadFilter = "项目参与人 like '%" & _UserName & "%' and 是否隐藏 = false "

 

但是目录树要显示全部（不只是显示自己参与的项目，含其他人参与的项目）

 室内设计项目表的目录树，目录树生成的代码怎么改呢？求助

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省市|县市")

参照上楼帮助，报错如下图，什么原因呢》？？

 

此主题相关图片如下：截屏图片.jpg

 大师，上楼的代码放在  AfterOpenProject 属性里面吗？

大师辛苦帮忙，登陆账号44 密码为888

后台查询表的所有数据，且有条件生成目录树求助

 

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

点击浏览该文件:后台查询有条件生成目录树.zip

上楼目录树是全部后台表的数据，

只想部分后台数据生成目录树呢？

也就是下面2个表的限制条件后的目录树

 

Dim stra = DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_未完工负责人", "(深化设计完成时间节点_扩初图会签时间_完成否 = '未完成' Or 深化设计完成时间节点_扩初图会签时间_完成否 Is null And 项目状态 <> '暂停')")
stra = stra.replace(",", "|").replace("|", "','")
Dim xmsa = DataTables("员工资料").GetValues("姓名", "分配任务组别='深化设计' and (个人状态 <> '我有空' or 个人状态 IS NULL)  and 姓名  in ('" & stra & "')")

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

 

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

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

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

 

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

点击浏览该文件:2.foxdb

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

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

 

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

 

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

点击浏览该文件:3.foxdb

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

要实现目录树效果：

44

55

66

 

怎么修改呢？

 

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

点击浏览该文件:4.foxdb

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

 大师，上楼代码还有点问题请教：
员工资料表，要实现 只是 深化设计 部门的员工，才录入 我有空，怎么增加条件呢？