- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我要在tabbar上放2个按钮，分别显示2个不同过滤条件的表格，放1个可以，放2个页面就显示不出来了，能帮忙看看吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138286)
-- 发布时间：2019/7/27 13:09:00
-- 我要在tabbar上放2个按钮，分别显示2个不同过滤条件的表格，放1个可以，放2个页面就显示不出来了，能帮忙看看吗？
代码发不上来，以附件形式上传。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:tabbar.txt |
-- 发布时间：2019/7/27 16:19:00
--
同一个网页里面的控件ID不能重复，里面的table1、menu、mnudAdd等等全部重复了
-- 发布时间：2019/7/27 19:30:00
--
我把ID改了，现在倒是可以显示出来了，可是为什么我建了3个page,每个page都有上一页，下一页，但是在第2个和第3个page点击"上一页"或"下一页"的时候总是回到第一个page呢？ 要怎么在各自page里点上一页下一页，显示的各自页的datatables的变化啊？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:tabbar.txt |
-- 发布时间：2019/7/28 21:00:00
--
这种情况表格要使用ajax函数处理，在回调函数里更新表格数据：http://www.foxtable.com/mobilehelp/topics/0110.htm
上面原来的用法是刷新了整个网页，默认就是显示page1了
-- 发布时间：2019/7/29 18:27:00
--
老师能不能给个demo啊？实在不会写了
点击上一页，下一页的页面
ajax
接受ajax调取数据的页面
-- 发布时间：2019/7/29 22:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题.zip |
-- 发布时间：2019/7/30 9:37:00
--
S elect Case e.Path
Case "index.htm"
Dim wb As New WeUI
With wb.AddTabBar("", "tb1", 1)
.AddPage("page1","待接单","../Images/cell.png")
.AddPage("page2","待结束","../Images/article.png")
.AddPage("page3","待评价","../Images/button.png")
\'.AddButton("bt1","我","./images/cell.png","http://www.foxtable.com")
End With
With wb.AddInputGroup("","ipg1","页码")
.AddHiddenValue("hpage1","1")
.AddHiddenValue("hpage2","1")
.AddHiddenValue("hpa1","1")
.AddHiddenValue("hpa2","1")
End With
wb.InsertHTML("page1","<div id=\'p1\' style=\'margin:0.5em\'>")
With wb.AddTable("p1","Table1")
.PageNumber = 0 \'设置页码
.Primarykey = "_Identify" \'设置主键
.CreateFromDataTable(DataTables("表A")) \' 表A是什么意思啊？ case "page1.htm"不是生成了dt1吗？
End With
wb.InsertHTML("page1","</div>")
With wb.AddButtonGroup("page1","btg1", False) \'生成上一页和下一页按钮
.Add("btnPrev1", "上一页","button").Attribute= ""
.Add("btnNext1", "下一页","button").Attribute= ""
End With
[此贴子已经被作者于2019/7/30 9:36:49编辑过]
-- 发布时间：2019/7/30 9:40:00
--
这段代码没有任何用处的，忘记去掉了
With wb.AddTable("p1","Table1")
.PageNumber = 0 \'设置页码
.Primarykey = "_Identify" \'设置主键
.CreateFromDataTable(DataTables("表A")) \' 表A是什么意思啊？ case "page1.htm"不是生成了dt1吗？
End With
-- 发布时间：2019/7/30 12:13:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
\' wb.AppendHTML("<script src=\'../ajax/libs/page.js\'></script>")
\' wb.AppendHTML("<script>inorder()</script>")
Dim page1 As Integer = 0 \'默认page为0,显示第一页
Dim pageRows1 As Integer = 10 \'每页10行
If e.GetValues.ContainsKey("page1") Then \'如果地址中有page参数
Integer.TryParse(e.GetValues("page1"), page1) \'提取page参数
End If
Dim StartRow1 As Integer = page1 * pageRows1 + 1 \'此页第一行
Dim EndRow1 As Integer = (page1 + 1) * pageRows1 \'此页最后一行
\'获取该页数据
Dim cmd As New SQLCommand
cmd.C \'记得设置数据源名称
cmd.CommandText = "S elect Count(*) From {硬件报障记录表}"
Dim Count As Integer = cmd.ExecuteScalar() \'获取总的行数
cmd.CommandText = "S elect * From (S elect Row_Number() Over(Order by 记录时间 desc) As [NO.],_Identify,设备类型,所在楼,姓名,电话,记录时间,流转状态 From 硬件报障记录表 where 流转状态 Is null) As a "
cmd.CommandText = cmd.CommandText & " Where [NO.]>= " & StartRow1 & " And [NO.] <= " & EndRow1
\'msgbox(cmd.CommandText)
With wb.AddActionSheet("page1","menu1") \'增加底部弹起的菜单
.Add("mnuEdit", "接单").Attribute ="onclick=l ocation.href="judgeinorderstate.htm?_identify="+ & ".Primarykey" ?
End With
Dim dt1 As DataTable = cmd.ExecuteReader
With wb.AddTable("","Table1")
.PageNumber = page1 \'设置页码
.Primarykey = "_Identify" \'设置主键
.CreateFromDataTable(dt1) \'从上面的dt加载数据
End With
Dim pa As Integer = Math.Ceiling(Count/pageRows1)
e.WriteString(pa & "|" & wb.Build)
[此贴子已经被作者于2019/7/30 12:13:46编辑过]
-- 发布时间：2019/7/30 13:40:00
--
到AddTabBar的页面添加菜单