参考

http://www.foxtable.com/mobilehelp/scr/0147.htm

测试，没问题

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")
            .AfterSelChange = "bz.value = new Date()" \'置顶选择不同单元格后要执行的js行数,注意区分大小写
            .head.AddRow("部门","姓名","年龄","电话","地址") \'表头
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .ActiveSheet = "menu" \'指定菜单
        End With
        With wb.AddActionSheet("","menu") \'设计菜单
            .Add("menu1", "菜单项目1")
            .Add("menu2", "菜单项目2")
            .Add("menu3", "菜单项目3")
            .Add("menu4","取消","",True)
        End With
        wb.AppendHTML("<script src=\'./lib/activesheet.js\'></script>") \'引入脚本文件
        e.WriteString(wb.Build)
End Select

你 po_audit() 里面写了什么代码？

尽量做一个例子发上来测试。

你在 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