以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于获取动态数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137580)
--  作者：TINOOOOOOOO
--  发布时间：2019/7/10 9:24:00
--  [求助]关于获取动态数据
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
 这个例子中 是想把固定文本  替换成  sql进来的 表  应该怎么操作
 项目改成 自己想要显示的列   后面的动态获取
--  作者：TINOOOOOOOO
--  发布时间：2019/7/10 9:30:00
--  
框框的数量也能 动态的根据  表里面的内容 增加   框框还可以做到 最近的时间 显示在最前面
--  作者：有点蓝
--  发布时间：2019/7/10 10:00:00
--  
比如：

Dim dr As DataRow = DataTables("表A").find(......)

With wb.AddPreview("","pv1","付款金额",dr("付款金额"))
    .AddItem("项目1",dr("项目1"))
    .AddItem("项目2","内容2")
    .AddItem("项目3", "电动打蛋机")
    .Addbutton("操作", "", 1, "")
End With
--  作者：TINOOOOOOOO
--  发布时间：2019/7/10 10:40:00
--  
那表里面有多行，然后每行都要一个框来显示  这个要怎么样 进行循环 在这个基础上面  谢谢
--  作者：有点蓝
--  发布时间：2019/7/10 11:04:00
--  

for each dr As DataRow in DataTables("表A").datarows
With wb.AddPreview("","pv" & dr("_Identify"),"付款金额",dr("付款金额"))
    .AddItem("项目1",dr("项目1"))
    .AddItem("项目2","内容2")
    .AddItem("项目3", "电动打蛋机")
    .Addbutton("操作", "", 1, "")
End With
next