主题：请教:在Table中ActiveSheet和Attribute 同时生效问题。

参考

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