项目中要算客户的欠款利息，现在的思路是算出每天的欠款金额并根据利率算出利息，如下图所示，我希望能让用户输入一个时间段，直接查询出这个时间段内每天的欠款金额，现在算每一天的欠款金额没有问题，就是不如如何运UNION把每天的查询结果组合到一起，就是说让用户统计起始录入2020-6-1，统计结束录入2020-6-3，然后3天的结果显示在一起
另外，查询表中我加了一个“统计日期”列，如何让这个统计日期等于 rq1
zd = "属性,类型,合同编号,合同附属编号,合同关联编号,我方简称,对方简称,类别,品名,规格,单位"
Do While rq1 <= rq2 'rq1统计起始日期 rq2是统计结束日期
Dim flt As String = "审核=1 And 属性 = '对外' And 类型 = '销售' And 结算类型 = '应收应付' And 结算日期 <= '" & rq1 & "'"
ppsz = ",ISNULL((S elect Sum(金额) from {收支录入} d where d.合同编号 = a.合同编号 And d.日期 <= '" & rq1 & "' And d.审核 = 1),0) As 已收金额,ISNULL((S elect Sum(结算含税金额) from {业务结算} b where b.合同编号 = a.合同编号 And b.结算日期 <= '" & rq1 & "' And b.审核 = 1 And b.结算类型 = '应收应付'),0) - ISNULL((S elect Sum(金额) from {收支录入} d where d.合同编号 = a.合同编号 And d.日期 <= '" & rq1 & "' And d.审核 = 1),0) As 应收金额"
t.Fill("s elect '2020-1-1' As 统计日期," & zd & ",Sum(结算含税金额) As 结算含税金额" & ppsz & " From {业务结算} As a Where " & flt & " GROUP BY " & zd ,"ShcsErpSql",True)
rq1 = rq1.AddDays(1)
Loop
此主题相关图片如下：123.jpg
[此贴子已经被作者于2020/6/5 12:53:38编辑过]
加好友 
发短信
Post By：2020/6/5 12:51:00 [只看该作者]
