参考
Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
wb.AppendHTML("<style>.hhh {height:60px;width:100%;text-overflow:ellipsis;overflow:hidden;} </style>",True)
With wb.AddTable("","Table1")
.ColWidth = ",,,,100px"
.head.AddRow("部门","姓名","年龄","电话","地址")
.body.AddRow("技术部","张三","36","110","中国北京") '整行增加
With .body.AddRow()
.AddCell("技术部") '逐个单元格增加
.AddCell("李四","class='mark'") '第二个参数用于设置单元格的Attribute属性
.AddCells("38","110") '用AddCells可以一次添加多个单元格
.AddCell("<div class='hhh'>中国上海并非支持每个平台的所有版本.有关支持的版本的列表.</div>")
End With
.body.AddRow("技术部","王五","39","110","中国深圳") '整行增加
End With
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2018/11/22 15:19:00 [显示全部帖子]
