Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我要在tabbar上放2个按钮，分别显示2个不同过滤条件的表格，放1个可以，放2个页面就显示不出来了，能帮忙看看吗？


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

主题：我要在tabbar上放2个按钮，分别显示2个不同过滤条件的表格，放1个可以，放2个页面就显示不出来了，能帮忙看看吗？
帅哥哟，离线，有人找我吗？
ycwk
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		我要在tabbar上放2个按钮，分别显示2个不同过滤条件的表格，放1个可以，放2个页面就显示不出来了，能帮忙看看吗？  发帖心情 Post By：2019/7/27 13:09:00 [显示全部帖子]

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:tabbar.txt
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/7/27 19:30:00 [显示全部帖子]

我把ID改了，现在倒是可以显示出来了，可是为什么我建了3个page,每个page都有上一页，下一页，但是在第2个和第3个page点击"上一页"或"下一页"的时候总是回到第一个page呢？ 要怎么在各自page里点上一页下一页，显示的各自页的datatables的变化啊？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:tabbar.txt
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/7/29 18:27:00 [显示全部帖子]

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

点击上一页，下一页的页面
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:itfailurelist.txt



ajax
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ajaxformitfailurelist.js.txt



接受ajax调取数据的页面
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:sendrepairresult.htm.txt
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/7/30 13:59:00 [显示全部帖子]

我要添加一个包含当前点选的记录的identify的跳转网址，怎么写？

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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/7/30 14:57:00 [显示全部帖子]

我不想用ajax 可以吗？ 直接在点击按钮时把  _identify合成到跳转的网址去

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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/7/30 15:17:00 [显示全部帖子]


试了下，现在连底部菜单也弹不出来了,麻烦老师帮忙给个代码吧。
下面是我改好的，3个sheet，可以各自显示上一页下一页的代码
就是想双击某行，在底部弹起菜单，点击菜单可以跳转到包含_identify  的一个网址 如： judgeinorderstate.htm?ReceiveID=_identify  


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:差底部弹起菜单.rar


[此贴子已经被作者于2019/7/30 15:18:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/7/30 17:06:00 [显示全部帖子]

怎么把table1.primarykey  的值 接在inorderjudgestate.htm后面，下面这种写法报错，    



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

        Dim dt1 As DataTable = cmd.ExecuteReader
        With wb.AddTable("","Table1")
            .PageNumber = page1 '设置页码
            .Primarykey = "_Identify" '设置主键
            .CreateFromDataTable(dt1)    '从上面的dt加载数据
            .ActiveSheet = "menu1" '指定菜单            
        End With


        With wb.AddActionSheet("","menu1") '设计菜单
          '  .Add("mnudAdd", "接单").Attribute ="""
             .Add("mnujd","接单","inorderjudgestate.htm?" & ""table1.Primarykey"" )
        End With
[此贴子已经被作者于2019/7/30 17:40:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/7/30 18:00:00 [显示全部帖子]

按照js写了，但还是跳转不了

        Dim dt1 As DataTable = cmd.ExecuteReader
        With wb.AddTable("","Table1")
            .PageNumber = page1 '设置页码
            .Primarykey = "_Identify" '设置主键
            .CreateFromDataTable(dt1)    '从上面的dt加载数据
            .ActiveSheet = "menu1" '指定菜单            
        End With


        With wb.AddActionSheet("","menu1") '设计菜单
            ' .Add("mnudjd1", "接单1").Attribute ="""
             '.Add("mnudjd2","接单2","inorderjudgestate.htm?" & "'table1.primarykey'" )
             .Add("mnudjd2","接单2").Attribute=""
        End With


        Dim pa As Integer = Math.Ceiling(Count/pageRows1)
        e.WriteString(pa & "|" & wb.Build)

        wb.AppendHTML("<script src='../ajax/libs/order.js'></script>")



order.js 代码如下：

function jd(){
   location="inorderjudgestate?RepairID="+table1.primarykey; 
}
[此贴子已经被作者于2019/7/30 18:25:52编辑过]
 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09766 秒, 9 次数据查询