主题：移动查询表

1、登陆页面参考

http://www.foxtable.com/mobilehelp/scr/0138.htm

2、

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        For Each dr As DataRow In DataTables("工作日报").Select("")
            With wb.AddPreview("","pv" & dr("_Identify"),"日期",dr("日期"))
                .AddItem("今日工作",dr("今日达成"))
                .AddItem("部门",dr("部门"))
                .AddItem("明日计划", dr("明日计划"))
                .Addbutton("点赞", "", 1, "")
            End With
            wb.AppendHTML("<br/>")
        Next
        e.WriteString(wb.Build)
End Select