Foxtable(狐表)用户栏目专家坐堂 → 这样不可以用吗


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

主题:这样不可以用吗

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
这样不可以用吗  发帖心情 Post By:2023/11/18 17:52:00 [只看该作者]

 With wb.AddActionSheet("", "menu1") '设计菜单            
            .Add("01", "审核").Attribute = "o1nclick=""sendAjaxText('','积分兑换进退货修改.htm?行号='+table1.primarykey+'&审核备注=已审核  ','',false);location.reload() ;""  "
            
            Dim ddr As DataRow = DataTables("积分兑换进退货").SQLFind("[_Identify]='+table1.primarykey+' " )
            If ddr IsNot Nothing AndAlso ddr("审核备注") = "已审核" Then
                     .Add("02", "换全天帮").Attribute = "o1nclick=""sendAjaxText('','备注数据列修改11.htm?行号='+table1.primarykey+'&年=" & e.GetValues("年") & "&月=" & e.GetValues("月") & "&姓名=" & e.GetValues("姓名") & "&店名汉字=" & e.GetValues("店名汉字") & "&备注数据列修改=换全天帮 ','',false);location.reload() ;""  "
             End If
            
        End With
[此贴子已经被作者于2023/11/18 17:52:51编辑过]

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


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/19 19:34:00 [只看该作者]

把要执行的js放到函数里。然后改为调用函数

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2023/11/19 21:17:00 [只看该作者]


 With wb.AddActionSheet("", "menu1") '设计菜单            
            .Add("01", "审核").Attribute = "o1nclick=""sendAjaxText('','积分兑换进退货修改.htm?行号='+table1.primarykey+'&审核备注=已审核  ','',false);location.reload() ;""  "
            
            Dim ddr As DataRow = DataTables("积分兑换进退货").SQLFind("[_Identify]='+table1.primarykey+' " )
            If ddr IsNot Nothing AndAlso ddr("审核备注") = "已审核" Then
                     .Add("02", "换全天帮").Attribute = "o1nclick=""sendAjaxText('','备注数据列修改11.htm?行号='+table1.primarykey+'&年=" & e.GetValues("年") & "&月=" & e.GetValues("月") & "&姓名=" & e.GetValues("姓名") & "&店名汉字=" & e.GetValues("店名汉字") & "&备注数据列修改=换全天帮 ','',false);location.reload() ;""  "
             End If
            
        End With
我要列里有对应的条件,就显示

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


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/19 21:38:00 [只看该作者]

table1.primarykey是js的用法,js里才能使用的,不可能在后台代码里用。下面用法不能这样用的

 Dim ddr As DataRow = DataTables("积分兑换进退货").SQLFind("[_Identify]='+table1.primarykey+' " )

参考这种用法:http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152609&authorid=0&page=0&star=2,看11楼
或者:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160435

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2023/11/19 22:10:00 [只看该作者]

table1里x行审核备注列内容= "已审核" ,然后不显示 With wb.AddActionSheet("", "menu1") '设计菜单  .Add("01", "审核").,


js放到函数里什么取table1里x行审核备注列内容,什么让 With wb.AddActionSheet("", "menu1") '设计菜单  .Add("01", "审核").,不显示


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


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/19 22:43:00 [只看该作者]

http://www.foxtable.com/mobilehelp/topics/0147.htm

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2023/11/19 22:46:00 [只看该作者]

cells[0]这个0是列吗

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


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/19 22:48:00 [只看该作者]

指第一列,索引从0开始,1就是第二列

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2023/11/19 22:54:00 [只看该作者]

OK
[此贴子已经被作者于2023/11/19 23:20:28编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2023/11/19 23:11:00 [只看该作者]


[此贴子已经被作者于2023/11/19 23:20:15编辑过]

 回到顶部