根据此页数据生成网页
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) '生成上一页和下一页按钮
加好友 
发短信
Post By：2021/3/3 13:37:00 [显示全部帖子]
