以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在删除订单之前增加一个询问是否删除的弹窗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190167)
--  作者：温馨的大树
--  发布时间：2024/1/21 2:18:00
--  如何在删除订单之前增加一个询问是否删除的弹窗？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:sdel.txt

以下代码在点确定后，直接就会删除并提示删除成功，如何在这中间加上一个是否确定删除的询问弹窗，避免误删除呢？
With wb.AddButtonGroup("form1", "btg1", True)
        .Add("btn1", "确定", "button").Attribute = ""
    End With
    With wb.AddDialog("", "dlg1", "成功", "恭喜你，编号【" & deloid & "】的订单删除成功！") \'增加订单成功提示框
        .AddButton("btnNo", "返回", "list.htm")
    End With
    With wb.AddDialog("", "dlg2", "错误", "") \'增加订单失败提示框
        .AddButton("btnOK", "确定")
    End With

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:del.txt
--  作者：有点蓝
--  发布时间：2024/1/21 20:25:00
--  
    With wb.AddButtonGroup("form1", "btg1", True)
        .Add("btn1", "确定", "button").Attribute = "onclick=""show(\'dlg3\')"""
    End With
    With wb.AddDialog("", "dlg1", "成功", "恭喜你，编号【" & deloid & "】的订单删除成功！") \'增加订单成功提示框
        .AddButton("btnNo", "返回", "list.htm")
    End With
    With wb.AddDialog("", "dlg2", "错误", "") \'增加订单失败提示框
        .AddButton("btnOK", "确定")
    End With
        With wb.AddDialog("","dlg3", "删除确认","您确定要删除当前记录吗?")
            .AddButton("btnCancel","取消").Kind = 1
            .AddButton("btnOK","确定").Attribute = "onclick=\'myfunction()\'"
        End With