Foxtable(狐表)用户栏目专家坐堂 → 怎么在主窗口中嵌入加载树


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

主题:怎么在主窗口中嵌入加载树

帅哥哟,离线,有人找我吗?
冰31脚
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
怎么在主窗口中嵌入加载树  发帖心情 Post By:2013/1/22 2:01:00 [只看该作者]

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

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

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


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/22 8:47:00 [只看该作者]

 这个在帮助里是有的,可以自己看看。

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

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


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
  发帖心情 Post By: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脚
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
  发帖心情 Post By:2013/1/22 12:29:00 [只看该作者]

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


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


加好友 发短信
等级:幼狐 帖子:198 积分:1646 威望:0 精华:0 注册:2012/4/16 10:10:00
  发帖心情 Post By:2013/1/22 13:15:00 [只看该作者]

处理好了

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

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


 回到顶部