- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 生成的目录树点击右边的表数据不变请高手帮忙看看 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49622)
-- 发布时间：2014/4/21 16:06:00
-- 生成的目录树点击右边的表数据不变请高手帮忙看看
这是我在网上看到的一个多层目录树 没有看到打开看看了 点击目录树的节点 表的内容不变 请高手帮忙看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目8.rar |
-- 发布时间：2014/4/21 16:10:00
--
节点事件没有写任何代码,当然内容不变了
-- 发布时间：2014/4/21 17:34:00
--
我知道没有写代码 看了半天就是看不懂 因为没哟编程基础
-- 发布时间：2014/4/21 17:34:00
--
不知道怎么来写这段代码
-- 发布时间：2014/4/21 17:36:00
--
参考2楼帮助的例子
-- 发布时间：2014/4/21 20:47:00
--
明天自己试着写代码 看看行不行 到时再请教了 谢谢bin
-- 发布时间：2014/4/21 22:31:00
--
请高手帮忙看看节点代码 执行到第二个根节点 下面的子节点就不执行了 非常感谢
-- 发布时间：2014/4/21 22:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目8.rar |
-- 发布时间：2014/4/21 23:46:00
--
回复8楼，帮你做了【按部门】的，其余两种，留给做作业。
参考
Dim t As Table = Tables("设备表")
If e.node.Level > 0 Then
If e.Node.FullPath.StartsWith("按部门") Then
If e.node.Nodes.count > 0 Then
Dim sidx As Integer = e.node.FullPath.IndexOf("\\")
Dim dept As String = e.node.FullPath.SubString(sidx+1)
t.Filter = "所在部门 like \'*" & dept & "*\'"
Else
Dim sidx As Integer = e.node.FullPath.IndexOf("\\")
Dim eidx As Integer = e.node.FullPath.LastIndexOf("\\")
Dim dept As String = e.node.FullPath.SubString(sidx+1, eidx-sidx-1)
Dim fac As String = e.node.FullPath.SubString(eidx+1)
t.Filter = "所在部门 = \'" & dept & "\' and 安装地点 = \'" & fac & "\'"
End If
Else If e.Node.FullPath.StartsWith("") Then
Else If e.node.FullPath.StartsWith("") Then
End If
Else
t.Filter = ""
End If
-- 发布时间：2014/4/22 11:20:00
--
非常感谢 安装您的方法 搞定