[求助]分页加载数显示行数后期修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好:

分页加载数动态加载数据,对系统设计有一定的好处,但是还不够灵活应付实际的环境需求,请老师帮看看,如何实现,后期可修改每页需要显示行数,谢谢!

需要实现效果:在文本框输入数字行数,点击"重新定义加载树"按钮,按文本框数字进行生成加载树规则(显示行数)

谢谢!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:分页加载树.zip

With DataTables("订单")

.LoadFilter = "" '清除加载条件

.LoadPage = 0 '加载第一页

.LoadTop = val(e.Form.Controls("TextBox2").text) '每页5行

.Load()

e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages

End With

目录树NodeMouseDoubleClick事件也要改

谢谢有点蓝老师,按钮事件可以实现重新生成新规则加载树,目录树NodeMouseDoubleClick事件也有改,但是双击节点没有按双击的节点重新加载数据.

另外:关于左边系统功能导航,请老师帮完善一下,怎么实现需求效果,谢谢!

左导航

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导航及分页加载树.zip

需要效果:

1.打开系统导航窗口后,按钮1到按钮5为显示状态为等距排布(搭配按钮要不占用空间),搭配按钮1到搭配按钮5为折叠隐藏状态(不显示)

2.鼠标单击按钮1,展开搭配按钮1在按钮1下方,鼠标单击按钮2,展开搭配按钮2在按钮2下方,同时折叠隐藏搭配按钮1,(也就是说同时只允许1个搭配按钮是展开的效果)

3.鼠标单击全部展开按钮:所有搭配按钮都展开显示在相应的按钮下方

4.鼠标双击全部展开按钮:回到1效果"按钮1到按钮5为显示状态为等距排布(搭配按钮要不占用空间),搭配按钮1到搭配按钮5为折叠隐藏状态(不显示)"

改代码不能越改越错呀

NodeMouseDoubleClick事件

With DataTables("订单")

.LoadFilter = Filter

……

谢谢老师,可以了

主题：[求助]分页加载数显示行数后期修改