[求助]这时目录树的单击事件该如何设置？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有19684人关注过本帖树形打印复制链接主题：[求助]这时目录树的单击事件该如何设置？

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/7/3 13:23:00 [显示全部帖子]

Dim Val As String = e.Form.Controls("textbox1").Value
DataTables("公司文件").LoadFilter = "[内容] = '"& Val &"'"
DataTables("公司文件").Load()

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：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()

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/7/3 14:01:00 [显示全部帖子]

六楼的代码就是放在中的

NodeMouseDoubleClick

用鼠标双击节点后执行。

下一主题 >> << 上一主题

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