Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddPage切换问题


  共有2442人关注过本帖树形打印复制链接

主题：AddPage切换问题
帅哥哟，离线，有人找我吗？
Exon_Liang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：150 积分：1647 威望：0 精华：0 注册：2015/4/7 23:01:00 		AddPage切换问题  发帖心情 Post By：2021/3/9 21:20:00 [只看该作者]

使用AddPage切换：

1、第1页拉到最底部，点击“下一页”
2、点击“上一页”，切换回第1页，总会显示最顶部内容

因为要设计分页填写的网页，希望切换页面时不要改变原来显示位置，请教有什么办法吗？在Win10自带IE、Edge和Chrome浏览器上都是这样。


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：1.5.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106404 积分：541167 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/9 22:15:00 [只看该作者]

贴出具体代码看看

 回到顶部
帅哥哟，离线，有人找我吗？
Exon_Liang
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：150 积分：1647 威望：0 精华：0 注册：2015/4/7 23:01:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106404 积分：541167 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询