- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Preview操作 对应数据表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114375)
-- 发布时间：2018/2/4 22:25:00
-- Preview操作 对应数据表
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编辑过]
-- 发布时间：2018/2/4 22:40:00
--
查询循环每一行，然后在循环里面AddPreview
-- 发布时间：2018/2/5 13:51:00
--
代码不会啊
-- 发布时间：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:13:00
--
老师是我要的效果
我想增加图片列 图片在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/>")
Next
e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2018/2/6 22:30:18编辑过]
-- 发布时间：2018/2/6 22:23:00
--
图片要另外处理：http://www.foxtable.com/mobilehelp/scr/0091.htm
-- 发布时间：2018/2/6 22:31:00
--
With wb.AddPreview("","pv" & dr("_Identify"),"日期",dr("日期")) 做那个 dr("日期 Desc")) 排序会报错 需要最新的排在前面
-- 发布时间：2018/2/6 22:49:00
--
For Each dr As DataRow In DataTables("工作日报").Select("","日期 Desc")
-- 发布时间：2018/2/6 22:56:00
--
.AddItem("报备人", dr("报备人"))
.Addbutton("修改", "新增客户.htm", 0) 点击后可以切换到当前标签 显示的行 重新编辑 要怎么做呢
.Addbutton("点赞", "", 1, "")
-- 发布时间：2018/2/6 23:10:00
--
Preview无法编辑的，要另外做一个编辑页面