以文本方式查看主题

-  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=73921)

--  作者:pcxjxjhkw
--  发布时间:2015/8/29 10:42:00
--  [求助]分页加载问题
用Select语句动态加载的表,且是多表多条件加载的表,如何实现分页显示?谢谢
[此贴子已经被作者于2015/8/29 10:57:28编辑过]

--  作者:Hyphen
--  发布时间:2015/8/29 10:45:00
--  

http://www.foxtable.com/help/topics/2269.htm

 

在帮助中搜索“分页”可以查到相关的主题


--  作者:pcxjxjhkw
--  发布时间:2015/8/29 12:06:00
--  

老师们,问题还是没得到解决哟

 

把问题再描述一下。

Access数据库,从多个表中按一定条件生成新表,绑定到窗口表中。

问题1:如何分页加载?第一页,上一页,下一页,最末页的代码如何写?

问题2:在加载后的窗口表中,按一定条件筛选,并分页显示,如何写代码?

 

谢谢


--  作者:有点蓝
--  发布时间:2015/8/29 12:16:00
--  
参考2楼和这个来做,看你想做成什么样子
http://www.foxtable.com/help/index.html?n=2692.htm
--  作者:pcxjxjhkw
--  发布时间:2015/8/29 13:27:00
--  

还是没有办法哟

 


--  作者:pcxjxjhkw
--  发布时间:2015/8/29 13:51:00
--  

ROW_NUMBER函数,能行吗

 


--  作者:有点蓝
--  发布时间:2015/8/29 14:01:00
--  
哦,你要用sql 语句实现的话参考这个
--  作者:pcxjxjhkw
--  发布时间:2015/8/29 14:18:00
--  

帮忙修改一下代码

zt1字段1,zt2字段2,

"Se lect " & zt1 & zt2 & " F ROM {数据库} LEFT JOIN {信访拟办} ON {数据库}.信访编号 = {信访拟办}.信访编号 WHERE {数据库}.信访编号  NOT In (S elect {信访拟办}.信访编号  FROM {信访拟办})  And [登记时间] < #" & Date.Today.AddDays(-3) & "# And (ROW_NUMBER >=1 and ROW_NUMBER <=10) ORDER BY [登记时间]"


--  作者:有点蓝
--  发布时间:2015/8/29 14:33:00
--  
试一下看看
Dim sql = "Se lect * From (Se lect Row_Number() Over(Order by [登记时间]) As RowNum," & zt1 & "," & zt2 & "FROM {数据库} LEFT JOIN {信访拟办} ON {数据库}.信访编号 = {信访拟办}.信访编号 WHERE {数据库}.信访编号  NOT In (Sel ect {信访拟办}.信访编号  FROM {信访拟办})"
sql = sql&"Where [登记时间] < #" & Date.Today.AddDays(-3)) &"# And RowNum >= " & r1 & "And RowNum <= " & r2

--  作者:pcxjxjhkw
--  发布时间:2015/8/29 15:05:00
--  

        sql = "S elect * From (S elect Row_Number() Over(Order by [登记时间]) As RowNum," & zt1 & "," & zt2 & " FROM {数据库} LEFT JOIN {信访拟办} ON {数据库}.信访编号 = {信访拟办}.信访编号 WHERE {数据库}.信访编号  NOT In (S elect {信访拟办}.信访编号  FROM {信访拟办})"
        sql = sql & " And [登记时间] < #" & Date.Today.AddDays(-3) & "#) As a Where  RowNum >= 1 And RowNum <= 7"

 

经测试,提示:语法错误 (操作符丢失) 在查询表达式 \'Row_Number() Over(Order by [登记时间])\' 中。