谁有窗口中加载树的使用说明链接 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 谁有窗口中加载树的使用说明链接

共有2786人关注过本帖树形打印复制链接主题：谁有窗口中加载树的使用说明链接

9EQ98

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

加好友

发短信

等级：一尾狐帖子：475 积分：4331 威望：0 精华：0 注册：2014/1/16 16:55:00

谁有窗口中加载树的使用说明链接 发帖心情

Post By：2021/11/15 19:17:00 [只看该作者]

LoadTree

Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "报表日期 >= #" & dt1 & "# And 报表日期 <= #" & dt2 & "#"

Dim trv As WinForm.LoadTree = e.Form.Controls("LoadTree1")
trv.Build(Tables("成瓷报表"), "报表日期|质管员",5,Filter)

一直提示错误

9EQ98

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

加好友

发短信

等级：一尾狐帖子：475 积分：4331 威望：0 精华：0 注册：2014/1/16 16:55:00

Post By：2021/11/15 19:22:00 [只看该作者]

此主题相关图片如下：对应参数太多.png

有点蓝

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

加好友

发短信

等级：超级版主帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/15 20:16:00 [只看该作者]

语法

Build(Table, ColNames, PageRows , Filter)

Table：表格

ColNames：指定分组列，不同的列之间用符号"|"隔开，例如“产品|客户”

PageRows ：指定每页加载的行数，默认为10000

Filter：可选参数，设置加载树的生成条件，默认是根据后台所有数据生成加载树的。

用1楼的用法，不要使用2楼的用法

[此贴子已经被作者于2021/11/15 20:17:10编辑过]

9EQ98

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

加好友

发短信

等级：一尾狐帖子：475 积分：4331 威望：0 精华：0 注册：2014/1/16 16:55:00

Post By：2021/11/16 10:07:00 [只看该作者]

1楼的用法，数据也出不来，日期条件表达示该如何写？

以下是引用有点蓝在2021/11/15 20:16:00的发言：

语法

Build(Table, ColNames, PageRows , Filter)

Table：表格

ColNames：指定分组列，不同的列之间用符号"|"隔开，例如“产品|客户”

PageRows ：指定每页加载的行数，默认为10000

Filter：可选参数，设置加载树的生成条件，默认是根据后台所有数据生成加载树的。

用1楼的用法，不要使用2楼的用法

[此贴子已经被作者于2021/11/15 20:17:10编辑过]

9EQ98

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

加好友

发短信

等级：一尾狐帖子：475 积分：4331 威望：0 精华：0 注册：2014/1/16 16:55:00

Post By：2021/11/16 10:09:00 [只看该作者]

e.Form.Controls("报表日期").Value = Date.now

Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "报表日期 >= " & dt1 & " And 报表日期 <= " & dt2 & ""

Dim trv As WinForm.LoadTree = e.Form.Controls("LoadTree1")
trv.Build(Tables("成瓷报表"), "报表日期|质管员",1000,Filter)

此主题相关图片如下：加载树.png

9EQ98

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

加好友

发短信

等级：一尾狐帖子：475 积分：4331 威望：0 精华：0 注册：2014/1/16 16:55:00

Post By：2021/11/16 10:13:00 [只看该作者]

Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "报表日期 >= #" & dt1 & "# And 报表日期 <= #" & dt2 & "#"

Dim trv As WinForm.LoadTree = e.Form.Controls("LoadTree1")
trv.Build(Tables("成瓷报表"), "报表日期|质管员",1000,Filter)

此主题相关图片如下：加载树－1.png

有点蓝

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

加好友

发短信

等级：超级版主帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/16 10:16:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/2343.htm

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

主题：谁有窗口中加载树的使用说明链接