此主题相关图片如下:qq截图20240321110631.png
现在点击renamecx函数中的翻页键,则会提示where附近错误的报错信息,browse函数中引用的renamecx函数,这个翻页的地方应怎样修改?
With wb.AddButtonGroup("page3", "btg1", False)
.Add("btn1", "返回首页", "", "default.htm")
If page > 0 Then
.Add("btnPrev", "上一页", "", "renamecx.htm?name=" & e.GetValues("name") & "&page=" & page - 1)
End If
If Endrow < count Then
.Add("btnNext", "下一页", "", "renamecx.htm?name=" & e.GetValues("name") & "&page=" & page + 1)
End If
.Add("btn2", "清除查询", "button", "Renamecx.htm?name=" & e.GetValues("name"))
End With
此主题相关图片如下:qq截图20240321110631.png
这样设置之后,点击下一页,后边的个人待办啥的就会消失。
同样以官方案例为例:http://www.foxtable.com/mobilehelp/topics/0110.htm
如果用的第一种显示方式,当我点统计按钮后,下方显示出统计结果 ,这个统计结果如果是分页处理,有很多页,需要怎样设置这个下一页的按钮?
再结合这里的用法:
http://www.foxtable.com/mobilehelp/topics/0116.htm,由于是内部表使用 loadpage进行分页,如果是SqlServer,自己改为使用Row_Number分页即可
If page > 0 Then
.Add("btnPrev", "上一页", "button").Attribute = "on click= ""next('" & (page - 1) & "')"""
End If
这句我如果想再加一个“name”参数传值,需要怎么添加?双引号太多了,不会区分了。
.Add("btnPrev", "上一页", "button").Attribute = "on click= ""next('" & (page - 1) & "','" & name & "')"""
js
function next(page,name){.....}
此主题相关图片如下:微信截图_20240401092854.png
我现在进入browse页面,点击全部事项,再点下一页,网页无变化,我自己感觉是这句没加对地方:wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>"),又不知道加在哪里正确。