以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动开发 如何将确认删除对话框和删除操作集成在一个函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125934)
--  作者：rogen
--  发布时间：2018/10/10 9:56:00
--  移动开发 如何将确认删除对话框和删除操作集成在一个函数
移动开发  想实现：选择一个产品后，点删除按钮，弹窗询问是否删除，点确定后删除产品
目前我写了2个函数，第一个是显示确认删除的弹窗，第二个函数写的跳转到删除页面

‘增加一个确认删除的弹窗 （为方便理解，函数名用了中文）
With wb.AddButtonGroup("","btg2",False)
    With .add("删除","删除","button")
        .Attribute = "on click=""确认删除()"""
        .kind=2
    End With
End with

With wb.AddDialog("","dlg2", "","")
    .AddButton("btnCancel","取消").Kind = 1
    .AddButton("btnOK","确定").Attribute ="on click=""删除产品()"""
End With


//为空、是否删除的判断
function 确认删除(){
if (tb1.primarykey)
{show Dialog(\'dlg2\',\'\',\'确定删除当前产品？\');}
else {show Dialog(\'dlg3\',\'\',\'请先选择一个产品！\');}
}

//删除产品  真的删除
function 删除产品()
{location="delcp.htm?key=" + tb1.primarykey;}

这样等于是写了2个函数，请问能将这2个函数合并为一个不？
就像CS编程里的，五句代码搞定
If Tables("产品表").Current IsNot Nothing Then
    If MessageBox.Show("是否删除当前产品?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        Tables("产品表").Current.Delete
    End If
End If
--  作者：有点甜
--  发布时间：2018/10/10 10:03:00
--  

你可以用原生的js弹出窗口，参考

 

http://www.w3school.com.cn/jsref/met_win_confirm.asp