Foxtable(狐表) → 用户栏目 → 专家坐堂 → 手机网页中如何固定表格上方的标题行


  共有2898人关注过本帖树形打印复制链接

主题：手机网页中如何固定表格上方的标题行
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/15 8:41:00 [显示全部帖子]

weui框架没有办法。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/15 12:18:00 [显示全部帖子]


谢谢3楼提醒了，倒也是一个取巧的方法，添加2个table，一个显示标题，一个显示内容。参考

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        wb.AppendHTML("<style>#table2 td{width: 100px;word-break: break-all;}</style>",True)

        With wb.AddTable("","Table1")
            .ColWidth = "100px,100px,100px,100px,100px" '设置列宽
            .head.AddRow("部门","姓名","年龄","电话","地址") '表头
        End With
        wb.InsertHTML("","<div id='div1' style='overflow-y:auto;height:300px'>")
        With wb.AddTable("","Table2")
            For i As Integer = 1 To 20
                .body.AddRow("技术部","张三","36","110","中国北京") '数据
            Next
        End With
        wb.InsertHTML("","</div>")
        e.WriteString(wb.Build)
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/15 12:19:00 [显示全部帖子]

或者：

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        wb.AppendHTML("<style>#table2 td{width: 100px;word-break: break-all;} #table2 thead{display:none}</style>",True)

        With wb.AddTable("","Table1")
            .ColWidth = "100px,100px,100px,100px" '设置列宽
            .head.AddRow("产 品","单 价","数 量","日 期") '表头
        End With
        wb.InsertHTML("","<div id='div1' style='overflow-y:auto;height:300px'>")
        With wb.AddTable("","Table2")
            .Creat eFro mDataT able(Dat aTa bles("订 单"),False,"客 户='CS01'","日 期 desc","产 品","单 价","数 量 ","日 期")
        End With
        wb.InsertHTML("","</div>")
        e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2020/10/15 12:20:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/17 12:19:00 [显示全部帖子]

注意上面代码里的样式，同步设置样式里的宽度即可

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/20 10:29:00 [显示全部帖子]

只能逐个单元格处理，借助样式进行处理。做网页开发，如果要做好的效果，建议花时间学学html和css的基础知识

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        wb.AppendHTML("<style>.td1,.td2,.td3{word-break: break-all;} .td1{width: 80px;}.td2{width: 60px;}</style>",True)
        
        With wb.AddTable("","Table1")
            .ColWidth = "80px,60px," '设置列宽
            .head.AddRow("部门","姓名","地址") '表头
        End With
        wb.InsertHTML("","<div id='div1' style='overflow-y:auto;height:300px'>")
        With wb.AddTable("","Table2")
            For i As Integer = 1 To 20
                With .body.AddRow()
                    .AddCell("技术部","class=""td1""") '逐个单元格增加
                    .AddCell("张三","class=""td2""")
                    .AddCell("中国北京中国北京中国北京中国北京中国北京中国北京","class=""td3""")
                End With
            Next
        End With
        wb.InsertHTML("","</div>")
        e.WriteString(wb.Build)
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询