主题：这样不可以用吗

 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