逐个单元格添加
前面的例子,都是整行整行地向表中增加行,简单方便。
如果需要更多的控制,可以逐个单元格添加。
一个例子
HttpRequest事件代码设置为:
Select
Case e.Path
Case "table.htm"
Dim wb
As New WeUI
wb.AppendHTML("<style>.mark{background-color:red;
color:white;}</style>", True)
'添加样式
With wb.AddTable("","Table1")
.head.AddRow("部门","姓名","年龄","电话","地址")
.body.AddRow("技术部","张三","36","110","中国北京")
'整行增加
With .body.AddRow()
.AddCell("技术部")
'逐个单元格增加
.AddCell("李四","class='mark'")
'第二个参数用于设置单元格的Attribute属性
.AddCells("38","110")
'用AddCells可以一次添加多个单元格
.AddCell("中国上海")
End With
.body.AddRow("技术部","王五","39","110","中国深圳")
'整行增加
End With
e.WriteString(wb.Build)
End
Select
下图是通过手机访问的显示效果,一个单元格变成了红底白字:
AddCell
AddCell用于向行中添加单元格,语法:
AddCell(Value)
AddCell(Value, Attribute)
Value | 要在单元格显示的内容。 |
Attribute | 可选参数,用于设置单元格元素的属性 |
提示:表有Class和Attribute属性;行只有Attribute属性;单元格没有任何属性,但是通过AddCell的Attribute参数可以设置Attribute属性。
AddCells
AddCells用于向行中一次添加多个单元格,语法:
AddCells(Values)
AddCells(Value1,Value2,Value3...)
Values | 一个包括各单元格值的集合或数组。 |
Value1,Value2,Value3 | 各单元格的值。 |