我要在tabbar上放2个按钮，分别显示2个不同过滤条件的表格，放1个可以，放2个页面就显示不出来了，能帮忙看看吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码发不上来，以附件形式上传。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:tabbar.txt

同一个网页里面的控件ID不能重复，里面的table1、menu、mnudAdd等等全部重复了

我把ID改了，现在倒是可以显示出来了，可是为什么我建了3个page,每个page都有上一页，下一页，但是在第2个和第3个page点击"上一页"或"下一页"的时候总是回到第一个page呢？要怎么在各自page里点上一页下一页，显示的各自页的datatables的变化啊？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:tabbar.txt

这种情况表格要使用ajax函数处理，在回调函数里更新表格数据：http://www.foxtable.com/mobilehelp/topics/0110.htm

上面原来的用法是刷新了整个网页，默认就是显示page1了

老师能不能给个demo啊？实在不会写了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:itfailurelist.txt

ajax

下载信息 [文件大小：下载次数： ]
点击浏览该文件:ajaxformitfailurelist.js.txt

接受ajax调取数据的页面

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sendrepairresult.htm.txt

下载信息 [文件大小：下载次数： ]
点击浏览该文件:问题.zip

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编辑过]

这段代码没有任何用处的，忘记去掉了

With wb.AddTable("p1","Table1")

.PageNumber = 0 '设置页码

.Primarykey = "_Identify" '设置主键

.CreateFromDataTable(DataTables("表A")) ' 表A是什么意思啊？ case "page1.htm"不是生成了dt1吗？

End With

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编辑过]

到AddTabBar的页面添加菜单

主题：我要在tabbar上放2个按钮，分别显示2个不同过滤条件的表格，放1个可以，放2个页面就显示不出来了，能帮忙看看吗？