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
设置列宽这个代码为什么不起作用呢？
加好友 
发短信
Post By：2021/3/3 13:05:00 [显示全部帖子]
