下面代码需要放到自定义函数中
http://www.foxtable.com/mobilehelp/topics/0025.htm
Dim e As RequestEventArgs = args(0) '获取传递过的e参数
Dim cmd As List(of DataRow) = DataTables("设置_星级").Select("","日期 Desc")
Dim ja As new jarray
Dim i As Integer
For Each DR As DataRow In DT.DataRowS
ja.add(new jobject)
ja(i)("序号") = dr("序号").Tostring
ja(i)("星级") = dr("星级").Tostring
Next
e.WriteString(CompressJson(ja))
e.handled = True