wb.AddForm("","form1","http://mt.gzhito.com.cn/shjg.htm?id=" & e.GetValues("id") & "&user=" & e.GetValues("user") & "") 'Attribute = ""
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute = "onclick='shqr()'"
End With
With wb.AddDialog("","dlg2", "删除确认","请确认货物是否已经送达?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定").Attribute = "onclick=myfunction()'"
End With
With wb.AddDialog("","dlg5", "送货确认成功!","") '增加订单失败提示框
.AddButton("btnOK","确定")
End With
With wb.AddDialog("","dlg3", "错误","") '增加订单失败提示框
.AddButton("btnOK","确定")
End With
加好友 
发短信
Post By：2017/5/6 9:55:00 [显示全部帖子]
