以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  Preview操作 对应数据表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114375)
--  作者：有点甜
--  发布时间：2018/2/4 22:40:00
--  

查询循环每一行，然后在循环里面AddPreview
--  作者：有点甜
--  发布时间：2018/2/5 14:27:00
--  

参考代码

 

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
--  作者：有点蓝
--  发布时间：2018/2/6 22:23:00
--  
图片要另外处理：http://www.foxtable.com/mobilehelp/scr/0091.htm
--  作者：有点蓝
--  发布时间：2018/2/6 22:49:00
--  
For Each dr As DataRow In DataTables("工作日报").Select("","日期 Desc")
--  作者：有点蓝
--  发布时间：2018/2/6 23:10:00
--  
Preview无法编辑的，要另外做一个编辑页面
--  作者：有点甜
--  发布时间：2018/2/7 8:49:00
--  
以下是引用yifan3429在2018/2/7 0:22:00的发言：
是的老师
我想通过按钮跳转到新页面  但是需要精准定位到 当前的现实行

 

.Addbutton("修改", "新增客户.htm?id=" & dr("_Identify"), 0)     点击后可以切换到当前标签 显示的行 重新编辑   要怎么做呢