以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树下相同的名称在不同的根下如何判断是属于哪个根节下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119740)

--  作者:wjliu
--  发布时间:2018/5/31 9:18:00
--  目录树下相同的名称在不同的根下如何判断是属于哪个根节下
设计了一个目录树 如图
在nodemouseclick里如何来判断是个人客户下还是单位客户的从未联系,请指教
[此贴子已经被作者于2018/5/31 9:19:32编辑过]

--  作者:有点甜
--  发布时间:2018/5/31 9:24:00
--  

参考

 

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

 

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

 


--  作者:wjliu
--  发布时间:2018/5/31 9:33:00
--  
上传项目


--  作者:有点甜
--  发布时间:2018/5/31 9:33:00
--  
认认真真看2楼啊,判断fullpath、fullname或者parentNode啊
--  作者:wjliu
--  发布时间:2018/5/31 10:10:00
--  
Select Case e.node.text
    Case "客户管理"
        forms("个人客户").open
    Case "客户管理\\个人客户\\从未联系"
        forms("个人客户").show
        Tables("个人客户信息").Filter="姓名 not in (\'" & DataTables("个人联系记录").GetComboListString("姓名","联系时间 Is not null").replace("|","\',\'") & "\')"
    Case "客户管理\\个人客户\\超45天未联系"
        forms("个人客户").show
        Tables("个人客户信息").Filter="姓名 not in (\'" & DataTables("个人联系记录").GetComboListString("姓名","联系时间 > = #" & Date.Today.adddays(-45) & "#").replace("|","\',\'") & "\')"
    Case "客户管理\\个人客户\\联系过期未联系"
        forms("个人客户").show
        Tables("个人客户信息").Filter="姓名 not in (\'" & DataTables("个人联系记录").GetComboListString("姓名","已联系=false").replace("|","\',\'") & "\')"
    Case "客户管理\\单位客户\\从未联系"
        forms("单位客户").show
        Tables("单位客户信息").Filter="单位名称 not in (\'" & DataTables("企业拜访记录").GetComboListString("单位名称","联系时间 Is not null").replace("|","\',\'") & "\')"
    Case "客户管理\\单位客户\\联系过期未联系"
        forms("单位客户").show
        Tables("单位客户信息").Filter="单位名称 not in (\'" & DataTables("企业拜访记录").GetComboListString("单位名称","已联系=false").replace("|","\',\'") & "\')"
    Case "客户管理\\单位客户\\超45天未联系"
        forms("单位客户").show
        Tables("单位客户信息").Filter="单位名称 not in (\'" & DataTables("企业拜访记录").GetComboListString("单位名称","联系时间 > = #" & Date.Today.adddays(-45) & "#").replace("|","\',\'") & "\')"
    Case "客户管理\\客户生日"
        forms("单位客户") .close
        forms("生日提醒").show


--  作者:有点甜
--  发布时间:2018/5/31 10:11:00
--  

Select Case e.node.text

 

改成

 

msgbox(e.node.FullPath)

Select Case e.node.FullPath


--  作者:wjliu
--  发布时间:2018/5/31 10:12:00
--  
当我点客户管理\\个人客户\\从未联系时
就能从表中选出从未联系的客户
现在就是case 不会写


--  作者:有点甜
--  发布时间:2018/5/31 10:15:00
--  

看6楼。


--  作者:wjliu
--  发布时间:2018/5/31 20:30:00
--  
谢谢 各位帮忙 问题搞定了