你在 po_audit() 里面设置了 Location
Location是相当于你打开一个新的网页的意思
双击后,会先触发单击事件,再触发双击事件的,你网页刷新到一个新的网页去了,自然不会再显示菜单。
如果要区分单击和双击,参考
Select Case e.Path
Case "test.htm",""
Dim wb As New WeUI
With wb.AddInputGroup("","ipg2","备注")
.AddTextArea("bz",5).Placeholder = "请输入200字以内的备注"
End With
With wb.AddTable("","table1")
.Attribute = "onclick=""test()"""
.head.AddRow("部门","姓名","年龄","电话","地址") '表头
.body.AddRow("技术部","张三","36","110","中国北京") '数据
.body.AddRow("技术部","李四","38","110","中国上海")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
End With
With wb.AddActionSheet("","menu") '设计菜单
.Add("menu1", "菜单项目1")
.Add("menu2", "菜单项目2")
.Add("menu3", "菜单项目3")
.Add("menu4","取消","",True)
End With
wb.AppendHTML("<script>var i = 0;function test() {i += 1; var val = setTimeout('call()',250); if(i==2){clearTimeout(val);}} function call() { if(i==1){alert('click');}else if(i==2){alert('dblclick');}i=0} </script>")
e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2017/11/13 11:10:05编辑过]