主题：直接统计

 

 我按“直接统计”帮助文件对附件做了设置，显示“语法错误:“，银行”运算符后缺少操作数。”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:银行日记账汇总.xlsx

还想按月对每个银行进行统计，就是每个月出一个这样的报表，请教如何设计？

菜鸟，看不懂，请教一下有项目需求找谁呀

老师，请教一下期初余额和期末余额的设置：

 

一般银行日记账列示如下

日期                  收入          支出         余额

2018-01-31      50             30           20

2018-02-01      100           50            70

2018-02-02      300           20            350

.....

2018-02-28       200          150           400

 

现在要做2月银行汇总，格式如下

银行名称   期初余额    收入   支出   期末余额

中行         20           600    220    400

 

就是2月期初余额取值1月最后一天余额，2月期末余额取值2月最后一天余额。

 

设计模板如何设置呢？谢谢

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:book1.xlsx

请问关于查找数据的视频课程是哪一个？谢谢

按照上面的说明：

第一步在报表设计模板期初余额和期末余额栏分别放上

[!期初余额]和

[!期末余额]

 

第二步输入代码

vars("期初余额") = 100

vars("期末余额") = 900

 

第三步再输代码

Dim rq As Date = "2018-02-01"

Dim fdr As DataRow = DataTables("表A").find("日期=#" & rq & "#", "_sortkey")

If fdr IsNot Nothing Then

    msgbox(fdr("余额")+fdr("支出")-fdr("收入"))

End If

 

 

只是第二步和第三步代码 是输入到表属性还是项目属性的哪个具体项下呢

 

老师，请帮忙看一下！我们想要做成这样的汇总表

 

                    2018年1月银行汇总表

                                                             2018年1月31日

 

银行      期初余额     收入   支出     期末余额  

中行       100          50     30       120

建行       200          50     20       230

总计       300          90      50      350

 

                        2018年2月银行汇总表

                                                             2018年2月28日

 

银行      期初余额     收入   支出     期末余额  

中行       100          50     30       120

建行       200          50     20       230

总计       300          90      50      350

 

代码这么写：

Dim Book As New XLS.Book(ProjectPath & "Attachments\银行日记账汇总.xls")

Dim Sheet As XLS.Sheet = Book.Sheets(0)
vars("期初余额") = 100
vars("期末余额") = 900
Dim rq As Date = "2018-02-01"
Dim fdr As DataRow = DataTables("资金日记账").find("日期=#" & rq & "#", "_sortkey")
If fdr IsNot Nothing Then
 msgbox(fdr("余额")+fdr("支出")-fdr("收入"))
End If
Book.Build()

Book.Save("c:\reports\test.xls")

Dim Proc As New Process

Proc.File = "E:\DAN\财务\test.xls"
Proc.Start()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:book2.xlsx