以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AddTable生成表格，怎样才能复制内容呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136919)
--  作者：Exon_Liang
--  发布时间：2019/6/24 15:35:00
--  AddTable生成表格，怎样才能复制内容呢？
以下代码用AddTable生成表格，在浏览器上无法用鼠标选择单元格内容进行复制，请教怎样解决呢？

With wb.AddTable("","Table1")
    .Highlight = 1
    .Alternate = 2
    
    .Head.AddRow("序号","姓名")
    .ColWidth = "50px,120px"
    
    .Body.AddRow("1","张三")
    .Body.AddRow("2","李四")
End With
[此贴子已经被作者于2019/6/24 15:34:54编辑过]
--  作者：有点甜
--  发布时间：2019/6/24 16:05:00
--  

参考

 


Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") \'表头
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
        End With
        wb.InsertHTML("<script>function tableMouseDown() {}</script>")
        e.WriteString(wb.Build)
End Select