Foxtable(狐表)用户栏目专家坐堂 → 移动版后台获取数据并筛选?


  共有1728人关注过本帖树形打印复制链接

主题:移动版后台获取数据并筛选?

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
移动版后台获取数据并筛选?  发帖心情 Post By: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)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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")


 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By: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)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/9 22:41:00 [只看该作者]

如果Select可以,sqlSelect肯定也没有问题的,下面条件放到数据库执行有没有数据?

select * fro工作日报 where[部门] = 'xxx'

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2018/2/9 22:59:00 [只看该作者]

For Each dr As DataRow In DataTables("工作日报").Select("[部门] = '" & s & "'","日期 Desc")   
多次测试 .Select   改成. sqlSelect  不显示数据   去掉正常显示数据   本地测试 127.0.0.1

select * fro工作日报 where[部门] = 'xxx'

在哪使用呢
[此贴子已经被作者于2018/2/9 22:59:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/9 23:01:00 [只看该作者]

到后台数据库执行

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2018/2/9 23:09:00 [只看该作者]

执行可以显示数据
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180209232101.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/2/9 23:21:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/10 8:58:00 [只看该作者]

1、弹出msgbox(s)

 

2、改成 For Each dr As DataRow In DataTables("工作日报").Select("[部门] = '" & s & "'", "", "日期 Desc")


 回到顶部