以文本方式查看主题

-  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=114580)
--  作者：有点蓝
--  发布时间：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