主题：Preview操作 对应数据表

查询循环每一行，然后在循环里面AddPreview

参考代码

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