- 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=173109)
-- 发布时间：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)
一直提示错误
-- 发布时间：2021/11/15 19:22:00
--
此主题相关图片如下：对应参数太多.png
-- 发布时间：2021/11/15 20:16:00
--
语法 Build(Table, ColNames, PageRows , Filter) Table：表格 ColNames：指定分组列，不同的列之间用符号"|"隔开，例如“产品|客户” PageRows ：指定每页加载的行数，默认为10000 Filter：可选参数，设置加载树的生成条件，默认是根据后台所有数据生成加载树的。 |
-- 发布时间：2021/11/16 10:07:00
--
|
语法
Build(Table, ColNames, PageRows , Filter)
Table：表格
ColNames：指定分组列，不同的列之间用符号"|"隔开，例如“产品|客户”
PageRows ：指定每页加载的行数，默认为10000
Filter：可选参数，设置加载树的生成条件，默认是根据后台所有数据生成加载树的。
|
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2021/11/16 10:16:00
--
参考：http://www.foxtable.com/webhelp/topics/2343.htm