- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 列宽设置不起作用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161032)
-- 发布时间：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
-- 发布时间：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) \'生成上一页和下一页按钮
-- 发布时间：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
-- 发布时间：2021/3/3 19:44:00
-- 谢谢
谢谢老师
-- 发布时间：2021/3/3 20:54:00
-- 又出新问题了
[此贴子已经被作者于2021/3/3 21:14:49编辑过]