Foxtable(狐表)用户栏目专家坐堂 → 移动版数据汇总小计


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

主题:移动版数据汇总小计

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/9 20:41:00 [显示全部帖子]

For Each dr As DataRow In DataTables("财务流水").Select("[经手人] = '" & U & "'","日期 Desc")
    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("经手人") & "'"))
        .Addbutton("点赞", "", 1, "")
    End With
    wb.AppendHTML("<br/>")
Next

 回到顶部