- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这时目录树的单击事件该如何设置？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3407)
-- 发布时间：2009/7/3 12:27:00
-- [求助]这时目录树的单击事件该如何设置？
先简述一下，窗口１中有目录树和标签及文本框等组件
1.目录树在加载窗口事件中(afterload)设置了
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildDataTree("公司文件", "", "部门", "时间", "信息项目","标题")
加载窗口后自己生成目录树
2.文本框绑定了数据字段＂内容＂
其它暂不描述
目的：单击目录树的标题子节点（最后），文本框的内容根据标题子节点的内容返回．也就是说要求为select 内容 from 公司文件 where 内容= 子节点标题 （这里只是打比方） ，这段代码在NodeMouseDoubleClick 事件中如何写？
期待指导！
此主题相关图片如下：1.jpg
[此贴子已经被作者于2009-7-3 12:27:35编辑过]
-- 发布时间：2009/7/3 12:45:00
--
DataTables("XXX").LoadFilter = " [内容] =\'" & e.Node.Text & "\'"
DataTables("XXX").Load()
帮助中有这样的例子，CaseStudy目录下还有一个示例文件，你可以参考。
-- 发布时间：2009/7/3 13:10:00
--
此主题相关图片如下：1.jpg
报错了 貌似要修改 红色等号 为 like?
DataTables("公司文件").LoadFilter = " [内容] = \'" & e.Node.Text & "\'"
DataTables("公司文件").Load()
-- 发布时间：2009/7/3 13:23:00
--
Dim Val As String = e.Form.Controls("textbox1").Value
DataTables("公司文件").LoadFilter = "[内容] = \'"& Val &"\'"
DataTables("公司文件").Load()
-- 发布时间：2009/7/3 13:28:00
--
同样报上面的错
-- 发布时间：2009/7/3 13:36:00
--
参看这个:
Dim Value()As String
Dim Filter As string
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
Filter ="[产品] = \'" & Value(0) & "\'"
Case 1
Filter ="[产品] = \'" & Value(0) & "\' And [客户] = \'" & Value(1) & "\'"
End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
-- 发布时间：2009/7/3 13:52:00
--
为了避错，我暂时先把代码放在节点的双击事件中，双击最后一个子节点时，仍报错
-- 发布时间：2009/7/3 14:01:00
--
六楼的代码就是放在中的
NodeMouseDoubleClick
用鼠标双击节点后执行。
-- 发布时间：2009/7/3 15:08:00
--
代码原理是没有错的，如果搞不定的话。
作简单的例子上传，说明在那里设置了代码，目的是什么，出现了什么意外。
-- 发布时间：2009/7/3 15:16:00
--
现在不报错了，以下代码才三层，实际是是四层，目前出现的情况是，我点击根子点的时候，文本框就把内容显示出来了，而根本不是实际的定位，一楼有层次图
Dim Value()As String
Dim Filter As string
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
Filter ="[部门] = \'" & Value(0) & "\'"
Case 1
Filter ="[部门] = \'" & Value(0) & "\' And [时间] = \'" & Value(1) & "\'"
Case 2
Filter ="[部门] = \'" & Value(0) & "\' And [时间] = \'" & Value(1) & "\' And [信息项目] = \'" & Value(2) & "\'"
End Select
DataTables("公司文件").LoadFilter = Filter
DataTables("公司文件").Load()
我所想像的方式是单击子节点后，select 内容 form 公司文件 where 内容＝得到节点内容 通过设置sql语句的动态方式，不知道行不行．