逐个单元格添加

前面的例子，都是整行整行地向表中增加行，简单方便。

如果需要更多的控制，可以逐个单元格添加。

一个例子

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)

提示：表有Class和Attribute属性；行只有Attribute属性；单元格没有任何属性，但是通过AddCell的Attribute参数可以设置Attribute属性。

AddCells

AddCells用于向行中一次添加多个单元格，语法：

AddCells(Values)
AddCells(Value1,Value2,Value3...)