以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]加载树问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126661) |
||||
-- 作者:81538475 -- 发布时间:2018/10/26 10:28:00 -- [求助]加载树问题 Tables("简历登记表").OpenLoadTree("流程一_投递时间 YM",120,100,True,"流程一_投递时间 desc") 后面的加载条件如何写呢,现在这个有问题。 也就是分页加载依据应该如何写
|
||||
-- 作者:有点蓝 -- 发布时间:2018/10/26 10:42:00 -- 这个方法不支持设置分页加载依据,要自己做加载树才行:http://www.foxtable.com/webhelp/scr/2692.htm |
||||
-- 作者:81538475 -- 发布时间:2018/10/26 14:24:00 -- \'生成目录树 Dim cmd As New SQLCommand Dim dt As DataTable cmd.C cmd.CommandText = "SE\\ECT DISTINCT year(采购信息_购买时间) as 年,month(采购信息_购买时间) as 月,地点 From {资产总表} " dt = cmd.ExecuteReader() Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(dt,"年|月|地点") trv.Nodes.Insert("加载所有数据",0) \'加载第一页数据 With DataTables("资产总表") .LoadFilter = "" \'清除加载条件 .LoadPage = 0 \'加载第一页 .LoadTop = 50 \'每页5行 .Load() e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages End With 那排序的应该写在哪里呀。
|
||||
-- 作者:有点蓝 -- 发布时间:2018/10/26 14:24:00 -- 参考:http://www.foxtable.com/webhelp/scr/1928.htm |
||||
-- 作者:81538475 -- 发布时间:2018/10/26 14:29:00 -- 多谢。。。我写成了loadsort了。 |
||||
-- 作者:81538475 -- 发布时间:2018/10/26 18:24:00 -- cmd.CommandText = "SE\\ECT DISTINCT PM,year(采购信息_购买时间) As 年,Quarter(采购信息_购买时间) As 季 From {资产总表} " 按季度分组不能这样写吗
|
||||
-- 作者:81538475 -- 发布时间:2018/10/26 19:10:00 -- 还有个问题。为何这样加载,却不是按照指定的顺序加载的 此主题相关图片如下:qq图片20181026190900.png
With DataTables("订单") .LoadTop = 10 \'每页350行 .LoadPage = 0 \'加载第一页 .LoadOver = "日期" .LoadReverse = True .Load() End With [此贴子已经被作者于2018/10/26 19:16:57编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2018/10/26 20:46:00 -- cmd.CommandText = "SE\\ECT DISTINCT PM,year(采购信息_购买时间) As 年,DatePart(q, 采购信息_购买时间) As 季 From {资产总表} " With DataTables("订单") .LoadTop = 10 \'每页350行 .LoadPage = 0 \'加载第一页 .LoadOver = "日期" .LoadReverse = True .Load() End With Tables("订单").sort = "日期 desc" 狐表的排序只能在Tables里实现,加载只是按顺序取值,不会影响界面的排序
|