[求助]账龄表的查询代码，已经上传例子，请老师帮忙下，10楼有新问题，请老师看下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

做了个例子，项目中有：

发货表：记录某公司的发货日期与金额

收款表：记录某公司的收款日期与金额

账龄表：是我人工做的账龄

请老师写个代码能用查询表生成例子中的账龄表，想了二天了，实在做不出来。万分感谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:账龄计算测试.zip

[此贴子已经被作者于2018/1/15 19:47:00编辑过]

这个例子我看过，现在的困难在于做出发货金额的时段分布图后，如何再用收到的款去减各个时段的发货金额，并优先减最早时段发货的，对SQL语句就懂些皮毛，这里有点搞不定了。

老师，代码有问题啊，datediff('d', 这一段中的 ‘ 导致后面的代码变成灰色了

此主题相关图片如下：账龄比对.jpg

老师，附件是我根据您的例子依样写的代码，但查询的结果是不对的，所出的问题在下面的图上，请帮我看看，谢谢！另外奇怪的是，我怎么直接发出不代码，而老师能发出来。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sql代码.txt

[此贴子已经被作者于2018/1/15 18:32:57编辑过]

我有思路了，看来不能用一条SQL语句做，我就分步做，下面的代码请老师帮我看下：

Tables(e.Form.Name & "_Table1").Fill("s elect 公司,SUM(发货金额) as 发货金额,(s elect sum(收款金额) from {收款} b where a.公司 = b.公司 ) as 收款金额 f rom {发货} as a group by 公司",True)

If DataTables(e.Form.Name & "_Table1").datacols.Contains("应收款") Then

Else

DataTables(e.Form.Name & "_Table1").DataCols.Add("应收款", Gettype(Double))

End If

For Each r As Row In Tables(e.Form.Name & "_table1").Rows

r("应收款") = r("发货金额") - r("收款金额")

上面的代码是可以达到我想的要求，但感觉太繁琐，如何在SQL语句中把应收款直接做上去，就像老师你上面的代码得到的结果，上面的代码我没看明白是如何得到应收款的

关键是我想在SQL语句中加个条件，让应收款为负数的（就是不欠钱）不要出现在table表中

[此贴子已经被作者于2018/1/15 19:39:13编辑过]

主题：[求助]账龄表的查询代码，已经上传例子，请老师帮忙下，10楼有新问题，请老师看下