以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这样不可以用吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189239)

--  作者:qazlinle6
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间:2023/11/19 19:34:00
--  
把要执行的js放到函数里。然后改为调用函数
--  作者:qazlinle6
--  发布时间: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
我要列里有对应的条件,就显示

--  作者:有点蓝
--  发布时间: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
--  发布时间:2023/11/19 22:10:00
--  
table1里x行审核备注列内容= "已审核" ,然后不显示 With wb.AddActionSheet("", "menu1") \'设计菜单  .Add("01", "审核").,


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


--  作者:有点蓝
--  发布时间:2023/11/19 22:43:00
--  
http://www.foxtable.com/mobilehelp/topics/0147.htm
--  作者:qazlinle6
--  发布时间:2023/11/19 22:46:00
--  
cells[0]这个0是列吗
--  作者:有点蓝
--  发布时间:2023/11/19 22:48:00
--  
指第一列,索引从0开始,1就是第二列
--  作者:qazlinle6
--  发布时间:2023/11/19 22:54:00
--  
OK
[此贴子已经被作者于2023/11/19 23:20:28编辑过]

--  作者:qazlinle6
--  发布时间:2023/11/19 23:11:00
--  

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