以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  特殊情况,双击目录树内容,显示不同的表?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17058)

--  作者:akzzwj
--  发布时间:2012/3/2 15:00:00
--  特殊情况,双击目录树内容,显示不同的表?
像下图这样的列,根据列内容生成的目录树,然后点击目录树中的文字,显示不同的内容,目录树的NodeMouseDoubleClick事件代码 该怎么写呢?
图片点击可在新窗口打开查看此主题相关图片如下:未命名-1.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2012/3/2 15:02:00
--  
MainTable = Tables("表名")
--  作者:akzzwj
--  发布时间:2012/3/2 15:04:00
--  

狐狸爸爸 上面的 这是什么意思啊


--  作者:akzzwj
--  发布时间:2012/3/2 15:05:00
--  

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        Filter ="Year(日期) = " & Value(0)
    Case 1
        Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1)
    Case 2
        Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1) & " And 产品 = \'" & Value(2) & "\'"
    End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()


--  作者:akzzwj
--  发布时间:2012/3/2 15:06:00
--  
有三列内容 代码是像上面,这样的。可我的 内容都在一列里。生成目录树代码写好后,然后点击目录树中的文字,显示不同的内容,目录树的NodeMouseDoubleClick事件代码 该怎么写呢?

--  作者:akzzwj
--  发布时间:2012/3/2 15:07:00
--  
狐狸爸爸 在吗
--  作者:akzzwj
--  发布时间:2012/3/2 15:13:00
--  
狐狸爸爸 上面的效果 怎么实现啊?
--  作者:狐狸爸爸
--  发布时间:2012/3/2 15:17:00
--  

这里有个现成的例子:

 

http://www.foxtable.com/help/topics/0917.htm

 


--  作者:akzzwj
--  发布时间:2012/3/2 15:25:00
--  
这个 我知道啊。我把文件传上来,能帮我在文件里实现这种效果吗?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:企业信息管理系统.rar


--  作者:akzzwj
--  发布时间:2012/3/2 15:31:00
--  
狐狸爸爸 帮我实现一下效果