[原创]求助报表数值小数位问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师您好：之前我忽略了一个问题，“客户往来明细表”中，原来设定的往来查询“开始日期”是月初1日，结束日期是月底（可以跨月查询），这样的话，“上期余额”是正确的。现在我想到一个问题，比如截图1中李四的客户“杭州市”12月20日到12月25日都有业务往来

此主题相关图片如下：截图1.png

我在查询时“开始日期”选12月21日，“结束日期”选12月25日

此主题相关图片如下：截图2.png

生成报表时“上期余额”无法显示12月20日的往来

此主题相关图片如下：截图3.png

报表事件中的代码能帮我改下吗？“上期余额”显示为“客户往来查询”中“开始日期”控件前一天及之前的余额。

Select Case e.Book.TempLate

Case "客户往来明细账"

If Forms("客户往来查询").Opened AndAlso Forms("客户往来查询").Controls("startdate").text > ""

Dim Filter As String = "业务员 = '" & e.DataRow("业务员") & "' and 客户名称 = '" & e.DataRow("客户名称") & "'"

Dim d As Date = Forms("客户往来查询").Controls("startdate").value

If d.Month > 1 Then

Dim fd As Date = new Date(d.Year,1,1)

Dim ld As Date = new Date(d.Year,d.Month,1)

Filter &= " and 日期 >= #" & fd & "# and 日期 < #" & ld & "#"

End If

Dim s1 = DataTables("客户往来明细表").Compute("Sum(应收账款)",Filter)

Dim s2 = DataTables("客户往来明细表").Compute("Sum(已收账款)",Filter)

vars("上期余额") = s1 - s2

vars("应收余额") = s1 - s2

Else

vars("应收余额") = 0

vars("上期余额") = 0

End If

End Select

谢谢老师！

改成

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

老师：成功了！！！谢谢，谢谢！！！

求助老师:如果我想把生成"客户余额表"的报表，“期末余额”为“0”的客户不再显示的话，代码要如何修改？谢谢老师！！

Select Case e.Book.TempLate

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("期末余额"))

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

End If

End Select

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

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

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

老师您好：筛选时出现可以的，我是想在生成报表时，因为“期末余额”为0了，不想让“它”在报表中再出现。也就是说报表中把“期末余额”为0的客户剔除掉。代码中不能实现吗？谢谢

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

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

不会做上传实例。

老师您好：窗口“客户余额查询”李四的所有客户明细如图A

此主题相关图片如下：图a.png

图A中第5行和第19行客户“温州市”应收账款和已收账款已平，期末余额为0，生成报表如图B

此主题相关图片如下：图b.png

我想在生成报表时，期末余额为0的客户“自动剔除”。

实例：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目.table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:客户余额表.xls

谢谢老师！！

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