- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 移动版后台获取数据并筛选？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114562)
-- 发布时间：2018/2/9 14:13:00
-- 移动版后台获取数据并筛选？
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
Dim e As RequestEventArgs = args(0)\'
For Each dr As DataRow In DataTables("立项事件").Select("","项目级别 Desc") 后台筛选出 当前 登陆用户 所在的 部门列 数据
With wb.AddPreview("","pv" & dr("_Identify"),"PDCA",dr("项目级别")&":"&dr("日期"))
.AddItem("部门", dr("部门"))
.AddItem("关联客户", dr("关联客户"))
.AddItem("主线任务",dr("主线任务"))
.AddItem("项目描述",dr("项目描述"))
.AddItem("结果",dr("结果"))
.AddItem("执行团队", dr("执行团队"))
.AddItem("协作团队", dr("协作团队"))
.AddItem("立项时间", dr("立项时间"))
.AddItem("结束时间", dr("结束时间"))
.Addbutton("点赞", "", 1, "")
End With
wb.AppendHTML("<br/>")
Next
e.WriteString(wb.Build)
-- 发布时间：2018/2/9 14:18:00
--
用cookie记录部门的值，然后从cookie那里获取，和username一样
http://www.foxtable.com/mobilehelp/scr/0042.htm
For Each dr As DataRow In DataTables("立项事件").Select("部门 = \'" & xxx & "\'","项目级别 Desc")
-- 发布时间：2018/2/9 22:11:00
--
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
Dim e As RequestEventArgs = args(0)\'
Dim s As String = e.cookies("部门")
For Each dr As DataRow In DataTables("工作日报").Select("[部门] = \'" & s & "\'","日期 Desc") .Select 改成. sqlSelect 不显示数据
With wb.AddPreview("","pv" & dr("_Identify"),"日期",dr("姓名")&":"&dr("日期"))
.AddItem("部门",dr("部门"))
.AddItem("姓名",dr("姓名"))
.AddItem("今日达成",dr("今日达成"))
.AddItem("营业收入", dr("营业收入"))
.AddItem("明日计划", dr("明日计划"))
.AddItem("工作建议", dr("工作建议"))
.Addbutton("点赞", "", 1, "")
End With
wb.AppendHTML("<br/>")
Next
e.WriteString(wb.Build)
-- 发布时间：2018/2/9 22:41:00
--
如果Select可以，sqlSelect肯定也没有问题的，下面条件放到数据库执行有没有数据？
select * from 工作日报 where[部门] = \'xxx\'
-- 发布时间：2018/2/9 22:59:00
--
For Each dr As DataRow In DataTables("工作日报").Select("[部门] = \'" & s & "\'","日期 Desc")
多次测试 .Select 改成. sqlSelect 不显示数据 去掉正常显示数据 本地测试 127.0.0.1
select * from 工作日报 where[部门] = \'xxx\'
在哪使用呢
[此贴子已经被作者于2018/2/9 22:59:37编辑过]
-- 发布时间：2018/2/9 23:01:00
--
到后台数据库执行
-- 发布时间：2018/2/9 23:09:00
--
执行可以显示数据
此主题相关图片如下：微信截图_20180209232101.png
[此贴子已经被作者于2018/2/9 23:21:33编辑过]
-- 发布时间：2018/2/10 8:58:00
--
1、弹出msgbox(s)
2、改成 For Each dr As DataRow In DataTables("工作日报").Select("[部门] = \'" & s & "\'", "", "日期 Desc")