合并模式
使用WeUI框架,实现合并模式是很简单的。
一个例子
HttpRequest事件代码:
Select Case
e.Path
Case "table.htm"
Dim wb
As New WeUI
With
wb.AddTable("","Table1")
.MergeCols =
2 '合并左边2列
.head.Addrow("国家","金属","类型","数量")
.body.AddRow("美国","白银","出口","70")
.body.AddRow("美国","白银","进口","321")
.body.AddRow("美国","黄金","出口","78")
.body.AddRow("美国","黄金","进口","789")
.body.AddRow("中国","白银","出口","380")
.body.AddRow("中国","白银","进口","809")
.body.AddRow("中国","黄金","出口","289")
.body.AddRow("中国","黄金","进口","668")
End With
e.WriteString(wb.Build)
End
Select
这是通过手机访问的效果:
提示:MergeCols用于指定要合并的列数,从左边第一列开始计算。