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


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

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

帅哥哟,离线,有人找我吗?
ycwk
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2019/7/30 13:59:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107218 积分:545345 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/30 14:54:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2019/7/30 14:57:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107218 积分:545345 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/30 15:12:00 [只看该作者]

这样就只能是指定固定的一行了。如果要动态获取当前选择的行,必须使用js处理

 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107218 积分:545345 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/30 16:41:00 [只看该作者]

请做可以测试的实例发过来

 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107218 积分:545345 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/30 17:43:00 [只看该作者]

都说了只能通过js处理

 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107218 积分:545345 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/30 20:17:00 [只看该作者]

.Add("mnudjd2","接单2","button").Attribute="onclick='jd()'"


order.js 代码如下:

function jd(){
   location="inorderjudgestate.htm?RepairID="+table1.primarykey; 
}
[此贴子已经被作者于2019/7/30 20:17:19编辑过]

 回到顶部
总数 35 上一页 1 2 3 4 下一页