主题：[求助]关于获取动态数据

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        With wb.AddPreview("","pv1","付款金额","￥2400")
            .AddItem("项目1","内容1")
            .AddItem("项目2","内容2")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("操作", "", 1, "")
       End With
        wb.AppendHTML("<br/>")
        With wb.AddPreview("","pv2","付款金额","￥3400")
            .AddItem("项目1","内容1")
            .AddItem("项目2","内容2")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("辅助操作", "http://www.foxtable.com", 0)
            .Addbutton("操作", "", 1, "")
       End With
        e.WriteString(wb.Build) '生成网页
End Select

框框的数量也能 动态的根据  表里面的内容 增加   框框还可以做到 最近的时间 显示在最前面

比如：

那表里面有多行，然后每行都要一个框来显示  这个要怎么样 进行循环 在这个基础上面  谢谢

for each dr As DataRow in DataTables("表A").datarows