Preview操作对应数据表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
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

此主题相关图片如下：微信截图_20180204222245.png

有一个工作日报表需要显示今日完成明日计划今日收入工作建议部门姓名日期列一

根据工作日报表的内容显示一行显示一个标签像朋友圈一样

[此贴子已经被作者于2018/2/4 22:27:29编辑过]

查询循环每一行，然后在循环里面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

老师是我要的效果

我想增加图片列图片在FTP里

Select Case e.Path

Case "日志报表.htm"

For Each dr As DataRow In DataTables("工作日报").Select("")

With wb.AddPreview("","pv" & dr("_Identify"),"日期",dr("日期")) 做那个 dr("日期 Desc")) 排序会报错需要最新的排在前面

.AddItem("部门",dr("部门"))

.AddItem("今日工作",dr("今日达成"))

.AddItem("明日计划", dr("明日计划"))

.AddItem("签约图片", dr("签约图片")) 图片类

.AddItem("签约合同", dr("签约合同")) 图片类

.Addbutton("点赞", "", 1, "") 这个点在需要计数在日志里增加了一个点赞数列用于接收怎么互动呢

End With

wb.AppendHTML("<br/>")

e.WriteString(wb.Build)

End Select

[此贴子已经被作者于2018/2/6 22:30:18编辑过]

With wb.AddPreview("","pv" & dr("_Identify"),"日期",dr("日期")) 做那个 dr("日期 Desc")) 排序会报错需要最新的排在前面

For Each dr As DataRow In DataTables("工作日报").Select("","日期 Desc")

http://www.foxtable.com/webhelp/scr/0400.htm

.AddItem("报备人", dr("报备人"))

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

.Addbutton("点赞", "", 1, "")

Preview无法编辑的，要另外做一个编辑页面

主题：Preview操作 对应数据表

主题：Preview操作对应数据表