以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  手机浏览表格网页问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133012)
--  作者：gudao123456
--  发布时间：2019/4/3 22:34:00
--  手机浏览表格网页问题？

在手机浏览表格记录时，如何将表头固定在那里？就如excel冻结单元格一样，谢谢！
--  作者：有点甜
--  发布时间：2019/4/3 23:53:00
--  

没办法。
--  作者：laipiwen
--  发布时间：2019/4/9 11:26:00
--  
以下是引用gudao123456在2019/4/3 22:34:00的发言：

在手机浏览表格记录时，如何将表头固定在那里？就如excel冻结单元格一样，谢谢！
 
有类似需求，请问你的问题解决了吗？
--  作者：有点甜
--  发布时间：2019/4/9 12:46:00
--  

冻结表头比较麻烦的，参考代码

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddTable("","Table2")
            .head.AddRow("部门","姓名","年龄","电话","地址").Attribute="style=\'position:fixed;\'" \'表头
        End With
        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","中国深圳")
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .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>for(var i=0; i<table1.rows[0].cells.length; i++) { alert(i);table2.rows[0].cells[i].style.width = table1.rows[1].cells[i].offsetWidth + \'px\';}</script>")
        e.WriteString(wb.Build)
End Select
--  作者：laipiwen
--  发布时间：2019/4/9 14:06:00
--  
谢谢老师，alert(table2.rows[table2.rowSel].cells[1].innerHTML + table2.rows[1].cells[table2.colSel - 2].innerHTML  )  先这样用用。