Foxtable(狐表)用户栏目专家坐堂 → 移动版后台加载


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

主题:移动版后台加载

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


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
移动版后台加载  发帖心情 Post By:2018/2/9 19:53: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"),"经手人",dr("经手人")&"出:"&dr("支出")&"入:"&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


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

For Each dr As DataRow In DataTables("财务流水").SqlSelect("","日期 Desc")


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


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

For Each dr As DataRow In DataTables("财务流水").SqlSelect("", "", "日期 Desc")

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


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



Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Dim e As RequestEventArgs = args(0)
Dim u As String = e.cookies("name")
'Dim s As String = e.cookies("部门")
'Dim x As String = e.cookies("岗位")
For Each dr As DataRow In DataTables("财务流水").sqlSelect("[经手人] = '" & U & "'","日期 Desc")     老师帮我看看  sqlSelect  加入sql 数据就读不出来 去掉就可以
      With wb.AddPreview("","pv" & dr("_Identify"),"经手人:",dr("经手人")&"/-出:"&dr("支出")&"/-入:"&dr("收入"))
        .AddItem("科目:",dr("科目"))
        .AddItem("收入:",dr("收入"))
        .AddItem("支出:",dr("支出"))
        .AddItem("摘要:",dr("摘要"))
        .AddItem("附页:",dr("附页"))
        .AddItem("流水编号:", dr("流水编号"))
        .AddItem("说明:", dr("说明"))
.AddItem("支出汇总:", DataTables("财务流水").Compute("sum(支出)","经手人='" & dr("经手人") & "'"))
.AddItem("收入汇总:", DataTables("财务流水").Compute("sum(收入)","经手人='" & dr("经手人") & "'"))
        .Addbutton("点赞", "", 1, "")
    End With
    wb.AppendHTML("<br/>")
Next
e.WriteString(wb.Build)

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


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

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

 回到顶部