- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]目录树合并问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135881)
-- 发布时间：2019/6/5 15:52:00
-- [讨论]目录树合并问题
此主题相关图片如下：111.png
老师们下午辛苦！！！！
上图左侧是项目窗口中的三个目录树控件，这不太美观，想将三个目录树合并到一个目录树控件中，将分类类型用目录树的“根节点”来表示，子节点仍为三个目录树中的节点内容，不知能否实现，请老师们指导，谢谢！！其代码如下：
①窗口的AfterLoad代码如下：
e.Form.Controls("XZMCFL").BuildTree("SLDJ", "所在乡镇|问题类型")
e.Form.Controls("WTLXFL").BuildTree("SLDJ", "问题类型|所在乡镇")
e.Form.Controls("HLFL").BuildTree("SLDJ", "所属河流|问题类型")
②目录树控件的AfterCheckNode代码如下：
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'清除子节点选中状态
nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then \'去掉父节点选中状态
e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
If flt > "" Then
flt = flt & " Or " \'注意用or而不是And
End If
If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
flt = flt & "( 所在乡镇 = \'" & nd.Text & "\')"
Else
flt = flt & "( 所在乡镇 = \'" & nd.ParentNode.Text & "\' And 问题类型 = \'" & nd.Text & "\')"
End If
End If
Next
Tables("四乱主窗口_witable").Filter = flt
Tables("四乱主窗口_witable").SetColVisibleWidth("点位编号|60|所在乡镇|60|具体位置|100|所属河流|50|区级河长|130|乡级河长|60|村级河长|60|问题描述|150|普查时间|80|是否定性|50|问题类型|60|乱占|40|乱采|40|乱堆|40|乱建|40|其他|40|核查情况|150|整改计划|120|阶段效果|100|整改时限|80|责任主体|120|备注|60|是否销号|40")
\'Tables("四乱主窗口_witable").Height = 60
其他两个目录树控件在上面黄色背景中的代码有变化：
flt = flt & "( 问题类型 = \'" & nd.Text & "\')"
Else
flt = flt & "( 问题类型 = \'" & nd.ParentNode.Text & "\' And 所在乡镇 = \'" & nd.Text & "\')"
及
flt = flt & "( 所属河流 = \'" & nd.Text & "\')"
Else
flt = flt & "( 所属河流 = \'" & nd.ParentNode.Text & "\' And 问题类型 = \'" & nd.Text & "\')"
-- 发布时间：2019/6/5 16:20:00
--
参考
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树分类.table |
-- 发布时间：2019/6/5 21:49:00
--
甜老师，你这是哪个版本的呢，我用的商业版和开发版都是才升级到4月12日的，可是打不开你这个项目文件，提示：
“文件版本过高，无法正常打开，请升级您的Foxtable!”。请问是怎么回事？
-- 发布时间：2019/6/6 9:55:00
--
以下是引用bashanren在2019/6/5 21:49:00的发言：
甜老师，你这是哪个版本的呢，我用的商业版和开发版都是才升级到4月12日的，可是打不开你这个项目文件，提示：
甜老师，你这是哪个版本的呢，我用的商业版和开发版都是才升级到4月12日的，可是打不开你这个项目文件，提示：
“文件版本过高，无法正常打开，请升级您的Foxtable!”。请问是怎么回事？
把你的商业版安装目录拷贝出来。然后安装最新版foxtable。
这样，你启动的，就是最新版foxtable，需要启动旧版，就打开你拷贝出来的那个文件夹的exe程序。
-- 发布时间：2019/6/6 13:03:00
--
"有点甜"老师，下午好！！
按照您的方法，我将原安装的商业版删了后，重新下载2019.04.12版后，仍然打不开您的这个项目，提示还是一样的。请指导！，谢谢！！
[此贴子已经被作者于2019/6/6 14:22:09编辑过]
-- 发布时间：2019/6/6 15:11:00
--
下载最新版的foxtable，才能打开啊，不是2019.04.12，是最新版啊