由Table自动生成
WeUI可以根据Foxtable中的Table自动生成网页。
一个例子
Select
Case e.Path
Case "table.htm"
Dim wb
As New WeUI
With
wb.AddTable("","Table1")
.CreateFromTable(Tables("表名"),True)
End With
e.WriteString(wb.Build)
End
Select
我用一个有多层表头的Table测试，用上面的代码生成了下图所示的网页：
生成上面的表其实只用了一行代码，这就是使用框架的优势：
.CreateFromTable(Tables("表名"),True)
提示：
自动生成的网页，逻辑列中的True倍符号●代替，False被符号○代替，你可以自定义符号，你可以用BooleanSymbol属性自定义符号，例如：
With
wb.AddTable("","Table1")
.BooleanSymbol= "√×"
.CreateFromTable(Tables("订单"))
End With
CreateFromTable
CreateFromTable用于根据Foxtable中的Table自动生成网页，语法：
CreateFromTable(Table)
CreateFromTable(Table,RowNum)
CreateFromTable(Table,RowNum,OnlyVisible)
CreateFromTable(Table,RowNum,Cols)
CreateFromTable(Table,RowNum,Col1,Col2,Col3...)
| 参数 | 说明 |
| Table | Foxtable中的Table。 |
| RowNum | 逻辑型，是否显示行号。 |
| OnlyVisible | 逻辑型，是否只包括可见列。 |
| Cols | 一个包括所有要显示列的列名的集合或数组，例如： Dim Cols() As String = "产品,客户,日期,数量".Split(",") .CreateFromTable(Tables("订单"),True,Cols) |
| Col1, Col2, Col3 | 字符型，用于指定要显示的列，例如： .CreateFromTable(Tables("订单"),True,"产品","客户","日期","数量") |