逐个单元格添加

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

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

一个例子

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 各单元格的值。

 


本页地址:http://www.foxtable.com/mobilehelp/topics/0068.htm