标题：如何在删除订单之前增加一个询问是否删除的弹窗？

1楼

温馨的大树 发表于：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

2楼

有点蓝 发表于：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

共2 条记录, 每页显示 10 条, 页签: [1]