移动开发 想实现：选择一个产品后，点删除按钮，弹窗询问是否删除，点确定后删除产品目前我写了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
加好友 
发短信
Post By：2018/10/10 9:56:00 [显示全部帖子]
