主题：[求助]目录树

后台查询全部数据以后，得到临时表，再设置目录树，如

 

http://www.foxtable.com/webhelp/scr/2054.htm

 

参考

 

http://www.foxtable.com/webhelp/scr/2344.htm

 

 

1、贴出你【项目事件】的所有代码；

 

2、你启动项目的时候自动打开了哪些窗口？贴出afterLoad事件代码；

 

3、不然直接做一个出错例子发上来测试。

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, "设计任务要求_城市|设计任务要求_城市")

改成

 

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

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)

 

 

 

 

替换红色代码

 

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, "设计任务要求_城市|设计任务要求_城市")

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, "姓名")

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