以文本方式查看主题 - 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) |
-- 作者:yifan3429 -- 发布时间:2018/2/9 20:06: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("财务流水").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("说明")) .Addbutton("点赞", "", 1, "") End With wb.AppendHTML("<br/>") Next e.WriteString(wb.Build)
[此贴子已经被作者于2018/2/9 20:36:55编辑过]
|
-- 作者:有点蓝 -- 发布时间: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
|
-- 作者:yifan3429 -- 发布时间:2018/2/9 21:31:00 -- 辛苦老师了 新年快乐 |