主题：删除后返回提示

   With wb.AddButtonGroup("", "btg1", false) '垂直排列
            .Add("btn1", "保存", "button").Attribute = ""
            .Add("btn1", "删除", "button").Attribute = ""
            .Add("btn4", "返回", "", PageURL)
        End With       
              With wb.AddDialog("", "dlg1", "压舱水已删除", "请刷新页面查看") '增加订单成功提示框  
            End With

dl3函数：

If e.GetValues.ContainsKey("key") Then
    '合成当前页面链接
    Dim dr As DataRow
    Dim id As String
    dr = DataTables("压舱水").SQ LFind("[_Identify] =" & e.getvalues("key"))
    If dr IsNot Nothing Then
        id = dr("压舱水编码次数")
        DataTables("压舱水").SQ LDeleteFor("压舱水编码次数='" & id & "'")
        DataTables("压舱水").Load
    Else
        wb.InSertHtml("此资料已被其他用户删除!")
        e.WriteString(wb.Build)
        Return "" '必须返回
       
    End If 
    e.WriteString("OK")

js：

function del33(){
     var result = submitAjaxFileds("del3.htm?key=" + table1.primarykey,"","tankno")
      if (result =='OK') {show('dlg1')}
}

点击删除按钮后，可以正常删除数据，但是手机端没有提示窗口。