Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
With wb.AddTable("","Table1")
.Alternate = 3
Dim nms() As String = {"产品","客户","数量","单价","日期"}
.Head.AddRow(nms)
For Each r As DataRow In DataTables("订单").Select("数量 > 100", "日期 Desc")
With .Body.AddRow(r("产品"),r("客户"),r("数量"))
.Attribute= "ondblclick= 'edit()'"
.AddCell(Format(r("单价"),"#0.00"))
.AddCell(Format(r("日期"),"MM月dd日"))
End With
Next
End With
e.WriteString(wb.Build)
End Select
js参考这里的用法:http://www.foxtable.com/mobilehelp/topics/0129.htm