以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]分页加载数显示行数后期修改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137309)
--  作者：工匠
--  发布时间：2019/7/3 10:29:00
--  [求助]分页加载数显示行数后期修改
老师好:
分页加载数动态加载数据,对系统设计有一定的好处,但是还不够灵活应付实际的环境需求,请老师帮看看,如何实现,后期可修改每页需要显示行数,谢谢!
需要实现效果:在文本框输入数字行数,点击"重新定义加载树"按钮,按文本框数字进行生成加载树规则(显示行数)
谢谢!
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:分页加载树.zip
--  作者：有点蓝
--  发布时间：2019/7/3 11:06:00
--  
With DataTables("订单")
    .LoadFilter = "" \'清除加载条件
    .LoadPage = 0 \'加载第一页
    .LoadTop = val(e.Form.Controls("TextBox2").text) \'每页5行
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With

目录树NodeMouseDoubleClick事件也要改
--  作者：工匠
--  发布时间：2019/7/3 11:53:00
--  
谢谢有点蓝老师,按钮事件可以实现重新生成新规则加载树,目录树NodeMouseDoubleClick事件也有改,但是双击节点没有按双击的节点重新加载数据.
另外:关于左边系统功能导航,请老师帮完善一下,怎么实现需求效果,谢谢!
左导航
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导航及分页加载树.zip

需要效果:
1.打开系统导航窗口后,按钮1到按钮5为显示状态为等距排布(搭配按钮要不占用空间),搭配按钮1到搭配按钮5为折叠隐藏状态(不显示)
2.鼠标单击按钮1,展开搭配按钮1在按钮1下方,鼠标单击按钮2,展开搭配按钮2在按钮2下方,同时折叠隐藏搭配按钮1,(也就是说同时只允许1个搭配按钮是展开的效果)
3.鼠标单击全部展开按钮:所有搭配按钮都展开显示在相应的按钮下方
4.鼠标双击全部展开按钮:回到1效果"按钮1到按钮5为显示状态为等距排布(搭配按钮要不占用空间),搭配按钮1到搭配按钮5为折叠隐藏状态(不显示)"
--  作者：有点蓝
--  发布时间：2019/7/3 12:05:00
--  
改代码不能越改越错呀

NodeMouseDoubleClick事件
With DataTables("订单")
    .LoadFilter = Filter
……
--  作者：工匠
--  发布时间：2019/7/3 15:09:00
--  
谢谢老师,可以了