由DataTable自动生成
WeUI可以根据Foxtable中的DataTable自动生成网页。
一个例子
Select
Case e.Path
Case "table.htm"
Dim wb
As New WeUI
With
wb.AddTable("","Table1")
'按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
.CreateFromDataTable(DataTables("订单"),False,"客户='CS01'","日期
desc","产品","单价","数量","日期","审核")
End With
e.WriteString(wb.Build)
End
Select
这是通过手机访问的效果:
我们只用了一行代码,就完成了一看起来有点复杂的任务:
.CreateFromDataTable(DataTables("订单"),False,"客户='CS01'","日期 desc","产品","单价","数量","日期","审核")
这就是使用框架的好处。
提示:
自动生成的网页,逻辑列中的True被符号●代替,False被符号○代替,你可以自定义符号,你可以用BooleanSymbol属性自定义符号,例如:
With
wb.AddTable("","Table1")
.BooleanSymbol= "√×"
.CreateFromDataTable(DataTables("订单"))
End With
CreateFromDataTable
CreateFromDataTable用于根据Foxtable的DataTable自动生成网页,语法:
CreateFromDataTable(DataTable)
CreateFromDataTable(DataTable, RowNum)
CreateFromDataTable(DataTable, RowNum, Filter)
CreateFromDataTable(DataTable, RowNum, Filter)
CreateFromDataTable(DataTable, RowNum, Filter, Sort)
CreateFromDataTable(DataTable, RowNum, Filter, Sort, DataCols)
CreateFromDataTable(DataTable, RowNum, Filter, Sort, DataCol1, DataCol2,
DataCol3...)
参数 | 说明 |
DataTable | Foxtable中的DataTable。 |
RowNum | 逻辑型,是否显示行号。 |
Filter | 筛选条件 |
Sort | 排序列 |
DataCols | 一个包括所有要显示列的列名的集合或数组,例如: Dim nms() As String = "产品,客户,日期,数量".Split(",") .CreateFromDataTable(DataTables("订单"),True,"","",nms) |
DataCol1, DataCol2, DataCol3 | 字符型,用于指定要显示的列,例如: .CreateFromDataTable(DataTables("订单"),False,"","","产品","单价","数量","日期","审核") |