主题：[原创]求助报表数值小数位问题

各位老师：通过Excel报表模板截图1

报表事件那里你处理一下，比如

 

vars("期末余额") = format(val(vars("期末余额")), "0.00")

好的老师，我代码里加进去，谢谢老师！！

老师：按您的代码，问题解决了！合计金额正确应为297687.05，少了小数位的值。期末余额好像不是数值型的，单元格左上角有小三角，在生成Excel报表后，各单位格统计时不能显示“合计金额”。

修改代码，然后关闭重新打开项目测试。

 

    Case "余额"
        Dim filter As String
        If Forms("客户余额查询").Opened AndAlso Forms("客户余额查询").Controls("enddate").text > ""
            filter = "业务员 = '" & e.DataRow("业务员") & "' and 客户名称 = '" & e.DataRow("客户名称") & "' and 日期 >= #" & Forms("客户余额查询").Controls("enddate").value & "#"
        Else
            filter = "业务员 = '" & e.DataRow("业务员") & "' and 客户名称 = '" & e.DataRow("客户名称") & "'"
        End If
        Dim s1 = DataTables("客户往来明细表").Compute("Sum(应收账款)",Filter)
        Dim s2 = DataTables("客户往来明细表").Compute("Sum(已收账款)",Filter)
        vars("期末余额") = val(s1 - s2)
        vars("结束日期") = Forms("客户余额查询").Controls("enddate").text
        If e.ColumnName = "业务员" Then
            vars("总期末余额") = 0
        Else
            vars("总期末余额") += val(vars("期末余额"))
        End If

老师您好：按您说的改了代码后，已达到预期效果了，太谢谢您了，那个总的正确合计金额应该是297687.05，但报表生成还是297687.00，请问这是什么缘故？谢谢！老师我测了其他“业务员”的余额，合计金额都是小数位后不正确，都是****.00的状态，无法显示2位小数的值。

beforeBuild事件写代码

 

vars("总期末余额") = cdbl(0)

 

然后重先打开项目测试

老师：加了vars("总期末余额") = cdbl(0.00)，报表完美了！！谢谢老师！！！

老师您好：1、像我这个“项目”的话，我想先用商业版试下，用商业版可以吗？商业版用一段时间后可以升级为开发版吗？2、如果不分年度（比如2018-2020年，主要是我不懂如何分年度）每天录入的数据都存在“客户往来明细表“中，几年下来，数据达到10万条之多，在查询数据时是不是有影响？3、老师有没有把数据分年度存储，且数据能结转到下一年度的学习案例吗？我学习下。谢谢老师！！

1、商业版就是试用版，只是比试用版延长了使用期限。

 

开发版你需要额外购买的，不能通过商业版升级到开发版的。

 

2、数据多没问题；大数据量，尽量用外部数据源存放；你进入系统的时候，可以控制加载量的，把当年或者前多少个月的数据加载进来。