移动版后台获取数据并筛选？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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/>")

e.WriteString(wb.Build)

主题：移动版后台获取数据并筛选？