以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列宽设置不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161032)

--  作者:ycs5801
--  发布时间:2021/3/3 13:05:00
--  列宽设置不起作用
With wb.AddTable("","Table1")
    .PageNumber = page \'设置页码
    .Primarykey = "_Identify" \'设置主键
    .ActiveSheet = "menu" \'设置菜单
    Dim nms() As String = {"填报人","手机号","英文船名","航次","IMO号","检查类别","泊位","靠离日期","船舶信息"}
    .Head.AddRow(nms)
    
    .ColWidth = "120px,,120px,,,,,120px,120px" \'设置列宽
    For Each r As DataRow In DataTables("表1").datarows
        With .Body.AddRow(r("填报人"), r("手机号"), r("英文船名"), r("航次"), r("IMO号"), r("检查类别"), r("泊位"), r("靠离日期"))
            .Attribute= "" \'另起一行
            Dim s As String = r("船舶信息")
            If s.length > 5 Then
                .AddCell(s.substring(0,5) & "...")
            Else
                .AddCell(s)
            End If
        End With
    Next
End With

设置列宽这个代码为什么不起作用呢?

--  作者:有点蓝
--  发布时间:2021/3/3 13:37:00
--  
屏幕的宽度是固定的,再怎么设置也不能超过屏幕宽度。

可以考虑加上滚动条:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=149960&replyID=74034&skin=1

--  作者:ycs5801
--  发布时间:2021/3/3 14:18:00
--  帮忙改下吧
老师,我加了不起作用,帮忙改下吧。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt


--  作者:有点蓝
--  发布时间:2021/3/3 14:27:00
--  
根据此页数据生成网页
    wb.InsertHTML("","<div id=\'div1\' style=\'overflow-x:auto;width:100%\'>") \'\'开启横向滚动条
With wb.AddTable("","Table1")
    
    .PageNumber = page \'设置页码
    .Primarykey = "_Identify" \'设置主键
    .ActiveSheet = "menu" \'设置菜单
    Dim nms() As String = {"英文船名","航次","IMO号","检查类别","泊位","靠离日期","船舶信息"}
    .Head.AddRow(nms)

    .ColWidth = "120px,,120px,,,,,120px,120px" \'设置列宽

    For Each r As DataRow In DataTables("表1").datarows
        With .Body.AddRow(r("英文船名"), r("航次"), r("IMO号"), r("检查类别"), r("泊位"), r("靠离日期"))
            .Attribute= "" \'另起一行
            .Attribute = "style=\'width:1000px\'" \'\'开启横向滚动条
            Dim s As String = r("船舶信息")
            If s.length > 5 Then
                .AddCell(s.substring(0,5) & "...")
            Else
                .AddCell(s)
            End If
        End With
    Next
End With
 wb.InsertHTML("","</div>")
With wb.AddButtonGroup("","btg2", False) \'生成上一页和下一页按钮

--  作者:ycs5801
--  发布时间:2021/3/3 16:31:00
--  还是有点小问题
老师,按照你这个改完了。之前我是只点船舶信息这列才出现船舶信息里边的内容,现在无论点哪列都出现船舶信息的内容,哪个地方不对呢?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt


--  作者:有点蓝
--  发布时间:2021/3/3 16:37:00
--  
    .ColWidth = "12px,,,,,,,,,90px" \'设置列宽
   
    For Each r As DataRow In DataTables("表1").datarows
        With .Body.AddRow(r("英文船名"), r("航次"), r("IMO号"), r("检查类别"), r("泊位"), r("靠离日期"))
            Dim s As String = r("船舶信息")
            If s.length > 5 Then
                .AddCell(s.substring(0,5) & "...","onclick=\'alert(""" & r("船舶信息") & """)\'")
            Else
                .AddCell(s)
            End If
        End With
    Next
End With

--  作者:ycs5801
--  发布时间:2021/3/3 19:44:00
--  谢谢
谢谢老师
--  作者:ycs5801
--  发布时间:2021/3/3 20:54:00
--  又出新问题了

[此贴子已经被作者于2021/3/3 21:14:49编辑过]