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

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

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

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

    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

beforeBuild事件写代码

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

然后重先打开项目测试

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

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

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

改成

                Dim fd As Date = new Date(d.Year,1,1)
                Filter &= " and 日期 >= #" & fd & "# and 日期 < #" & d & "#"

打印过程中是无法处理的。你对表格进行筛选的时候，就要计算出期末余额。

你表格那里加入【期末余额】列，然后计算，类似

http://www.foxtable.com/webhelp/scr/1572.htm

筛选的时候或者生成报表，或者输入值的时候，计算【期末余额】的值，参考

http://www.foxtable.com/webhelp/scr/1572.htm

参考

http://www.foxtable.com/webhelp/scr/2342.htm

http://www.foxtable.com/webhelp/scr/0605.htm

http://www.foxtable.com/webhelp/scr/1667.htm