专家坐堂-[求助]关于获取动态数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于获取动态数据  (http://foxtable.net/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