以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么在主窗口中嵌入加载树  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28184)

--  作者:冰31脚
--  发布时间:2013/1/22 2:01:00
--  怎么在主窗口中嵌入加载树

在主窗口目录树控件中显示加载数据,加载树按表中的日期列加载,按月加载数据,怎么实现。请高手指导下

如案例,窗口中的目录树内显示跟左侧加载树一样的内容,(因为实际使用的时候不显示加载树,只显示主窗口,所以需要这个功能)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:点击筛选.table


--  作者:lin_hailun
--  发布时间:2013/1/22 8:47:00
--  
 这个在帮助里是有的,可以自己看看。

http://www.foxtable.com/help/topics/2692.htm
[此贴子已经被作者于2013-1-22 8:47:34编辑过]

--  作者:冰31脚
--  发布时间:2013/1/22 12:19:00
--  

弄出来了,但有这个提示,是什么问题


图片点击可在新窗口打开查看此主题相关图片如下:12123.png
图片点击可在新窗口打开查看

代码

AfterLoad

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C

cmd.CommandText = "SELECT DISTINCT Year(月份营运报表_日期) As 年, Month(月份营运报表_日期) As 月 From {综管}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")

trv.BuildTree(dt, "年|月")

 

 

NodeMouseDoubleClick

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) & "\'"
    End Select
DataTables("综管").LoadFilter = Filter
DataTables("综管").Load()


--  作者:冰31脚
--  发布时间:2013/1/22 12:29:00
--  

双击月份的时候才会提示,双击年份正常


--  作者:冰31脚
--  发布时间:2013/1/22 13:15:00
--  

处理好了

Filter ="Year(月份营运报表_日期) = " & Value(0) & " And Month(月份营运报表_日期) = " & Value(1) & "\'"

多了这两个符号,所以出错