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编辑过]