由DataTable自动生成

WeUI可以根据Foxtable中的DataTable自动生成网页。

一个例子

Select Case e.Path
    Case "table.htm"
        Dim wb As New We
UI
        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,"","","产品","单价","数量","日期","审核")


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