- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- AddPage切换问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161206)
-- 发布时间：2021/3/9 21:20:00
-- AddPage切换问题
使用AddPage切换：
1、第1页拉到最底部，点击“下一页”
2、点击“上一页”，切换回第1页，总会显示最顶部内容
因为要设计分页填写的网页，希望切换页面时不要改变原来显示位置，请教有什么办法吗？在Win10自带IE、Edge和Chrome浏览器上都是这样。
此主题相关图片如下：1.png
此主题相关图片如下：1.5.png
此主题相关图片如下：2.png
-- 发布时间：2021/3/9 22:15:00
--
贴出具体代码看看
-- 发布时间：2021/3/10 10:07:00
--
代码来源于帮助文件的例子：
Dim wb As New weui
wb.AddPage("","page1") \'增加两个page
wb.AddPage("","page2",False) \'第二个
With wb.AddArticle("page1","ar1")
.AddTitle("h1","关于Foxtable")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
End With
With wb.AddButtonGroup("page1","btg1")
.Add("btn1", "下一页", "button").Attribute="""
End With
With wb.AddArticle("page2","ar2")
.AddTitle("h1","关于易表")
.AddContent("易表.net介于电子表格和数据库软件之间,它有类似电子表格的界面,同时又有很多数据库软件特有的功能和灵活性,它能将复杂的操作简单化,让普通用户轻松完成复杂的数据管理和统计分析工作.")
End With
With wb.AddButtonGroup("page2","btg2")
.Add("btn2", "上一页", "button").Attribute="""
End With
[此贴子已经被作者于2021/3/10 10:09:45编辑过]
-- 发布时间：2021/3/10 11:00:00
--
Dim wb As New weui
wb.AddPage("","page1") \'增加两个page
wb.AddPage("","page2",False) \'第二个
With wb.AddArticle("page1","ar1")
.AddTitle("h1","关于Foxtable")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
End With
With wb.AddButtonGroup("page1","btg1")
.Add("btn1", "下一页", "button").Attribute="onclick=""hide(\'page1\');show(\'page2\')"""
End With
With wb.AddArticle("page2","ar2")
.AddTitle("h1","关于易表")
.AddContent("易表.net介于电子表格和数据库软件之间,它有类似电子表格的界面,同时又有很多数据库软件特有的功能和灵活性,它能将复杂的操作简单化,让普通用户轻松完成复杂的数据管理和统计分析工作.")
End With
With wb.AddButtonGroup("page2","btg2")
.Add("btn2", "上一页", "button").Attribute="onclick=""hide(\'page2\');show(\'page1\');location.href = \'#bottom\'"""
End With
wb.InsertHTML("page1","<a name=""bottom""></a>")
e.WriteString(wb.Build)