Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .CreateFromTable(Tables("表名"),True)
        End With
        e.WriteString(wb.Build)

由表格生成网页，有没有双击事件？应该怎么表示呢？

谢谢

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109445&replyID=747030&skin=1

接前面问题，如何让下面语句中单击不显示？

 双击时启动一个网页。

现在是单击也有一个提示； 谢谢

wb.AppendHTML("<script>var i = 0;function sjhs()  {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>")

我想实现双击表后，按照双击记录参数，再形成一个新的页面

这是一部分的程序

With wb.AddTable("","Table1")
    .Attribute = ""
    .MergeCols = 2
    .Primarykey = "_Identify"
    .CreateFromTable(Tables("产品索引"),False,True)
End With
wb.AppendHTML("<script src=\'./lib/table.js\'></script>")
wb.AppendHTML("<script>var i = 0;function sjhs()  {i += 1; var val = setTimeout(\'call()\',250); if(i==2){clearTimeout(val);}} function call() { if(i==2){\'cshs()\';}i=0} </script>")

\'//////////////////////////////////////////////

这是table.js\'文件里的程序。

function cshs(){
  alert(\'xxxxdblclick\')
    if(table1.primarykey){
  
        location="cpmx.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
    }
}