Foxtable(狐表)用户栏目专家坐堂 → [求助]这时目录树的单击事件该如何设置?


  共有17890人关注过本帖树形打印复制链接

主题:[求助]这时目录树的单击事件该如何设置?

帅哥哟,离线,有人找我吗?
狐狸爸爸
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/3 15:26:00 [只看该作者]

你这个问题提得很不清晰,有些混乱,我理解不了。

我蒙一下:

1、这个代码只是一个例子,如果你是四层,代码相应的增加即可。
2、select 内容 form 公司文件 where 内容=得到节点内容
当然是可以的,没有什么不可以的。只是我看着有点奇怪,内容=得到节点内容,双节不同层次的节点,等式左边列难道是固顶的,如果是固定的,只需:

DataTables("公司文件").LoadFilter = "[内容] Like '%" & e.Node.Text & "%'"
DataTables("公司文件").Load()

如果左边的列是变化的:

Dim Value()As String
Dim Filter As string
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Filter ="[内容X] Like '%" & e.Node.Text & "%'"
    Case 1
        Filter ="[内容Y] Like '%" & e.Node.Text & "%'"
    Case 2
        Filter ="[内容Z] Like '%" & e.Node.Text & "%'"
 End Select
DataTables("公司文件").LoadFilter = Filter
DataTables("公司文件").Load()


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/3 15:27:00 [只看该作者]

对于不好表述的问题,与其贴代码,不如做个简单的示例文件上来,说明在那里设置了代码,目的是什么呢,遇到了啥问题,这样快得多。

 回到顶部
帅哥哟,离线,有人找我吗?
roy78
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
  发帖心情 Post By:2009/7/3 15:40:00 [只看该作者]

  最终就以下代码OK了,非最终子节点均不采取动作:
Dim Value()As String
Dim Filter As string
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
        case 3
        Filter="[标题] like '%" & e.Node.Text & "%'"
 End Select
DataTables("公司文件").LoadFilter = Filter
DataTables("公司文件").Load()


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/3 15:45:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
总数 14 上一页 1 2