- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 移动查询表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114397)
-- 发布时间：2018/2/5 14:03:00
-- 移动查询表
移动版需要做一个
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日志管理.foxdb |
登陆用户根据 汇报对象 列判断 只能查看相关的列 不能产看别人的内容
工作日报表 需要显示 今日完成 明日计划 今日收入 工作建议 部门 姓名 日期 列
根据 工作日报表 的内容显示 一行显示一个标签 像朋友圈一样
-- 发布时间：2018/2/5 14:27:00
--
1、登陆页面参考
http://www.foxtable.com/mobilehelp/scr/0138.htm
2、
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