Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共10 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:这样不可以用吗

1楼
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编辑过]
2楼
有点蓝 发表于:2023/11/19 19:34:00
把要执行的js放到函数里。然后改为调用函数
3楼
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
我要列里有对应的条件,就显示
4楼
有点蓝 发表于: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
5楼
qazlinle6 发表于:2023/11/19 22:10:00
table1里x行审核备注列内容= "已审核" ,然后不显示 With wb.AddActionSheet("", "menu1") '设计菜单  .Add("01", "审核").,


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

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

[此贴子已经被作者于2023/11/19 23:20:15编辑过]
共10 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.