- 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=185944)
-- 发布时间：2023/3/27 12:34:00
-- 打开窗口加载树报错
此主题相关图片如下：22.png
Tables("主表").Sort = "时间"
Tables("主表.操作表").Sort = "次数"
\'\'If User.Type <> UserTypeEnum.Developer
If User.name = "操作员" Then
Forms("主表").Controls("SplitContainer1").Panel1.Collapsed = True
Forms("主表").Controls("SplitContainer2").Panel1.Collapsed = True
End If
Dim trv As WinForm.LoadTree = e.Form.Controls("LoadTree1")
trv.Build(Tables("主表"),"日期 YM",10,True)
以上是窗口的afterload中的代码，打开窗口报错，如图。
-- 发布时间：2023/3/27 13:35:00
--
trv.Build(Tables("主表"),"日期 YM",10)
-- 发布时间：2023/3/27 14:00:00
--
我是想用这个自动打开：
示例5
在分页加载的时候，如果将第四个参数设置为True，打开加载树之后，会自动加载第一页数据，例如：
Tables("订单").OpenLoadTree("产品|客户",120,50,True)
表示每页50行，打开加载树后，自动加载第一页数据。
-- 发布时间：2023/3/27 14:29:00
--
那就用啊，有什么问题？再说3楼的用法和1楼有什么关系？
-- 发布时间：2023/3/27 14:37:00
--
我现在是想实现加载树，trv.Build(Tables("主表"),"日期 YM",10,True)，打开之后自动打开最新月份的数据，怎么实现呢？
-- 发布时间：2023/3/27 15:02:00
--
[此贴子已经被作者于2023/3/27 15:14:43编辑过]
-- 发布时间：2023/3/27 15:10:00
--
我这个加载树是在窗口里边的，现在设置了窗口加载后执行的代码，无法使用这个吧？
Dim trv As WinForm.LoadTree = e.Form.Controls("LoadTree1")
trv.Build(Tables("主表"), "日期 YM", 10, 20, True)
这样会报错。
-- 发布时间：2023/3/27 15:18:00
--
测试了一下，这个build没有提供【自动加载第一页数据】的参数。
绑定加载数后，另外使用代码加载第一页数据：http://www.foxtable.com/webhelp/topics/1928.htm
-- 发布时间：2023/3/27 15:32:00
--
Dim trv As WinForm.LoadTree = e.Form.Controls("LoadTree1")
trv.Build(Tables("主表"), "日期 YM", 10)
DataTables("主表").LoadPage = "0"
DataTables("主表").LoadOrder = "日期 Desc"
DataTables("主表").Load
Tables("主表").Sort = "时间"
Tables("主表.操作表").Sort = "次数"
改成这样可以了，谢谢。
-- 发布时间：2023/3/27 15:41:00
--
还是不行，打开初始页面时候，表内无数据，怎样能显示第一页数据？