求助按日期统计的表达方式！谢谢！

danhanqing

Dim Conn As adodb.Connection
Set Conn = LinkDB
Dim Rs As New adodb.Recordset
    sql = "select sum(实收) as 今日营业额 from 财务结算总表 where 日期 = #" & Date & "# "
    Set Rs = Conn.Execute(sql)
    今日营业额 = Rs("今日营业额")
    sql = "select sum(实收) as 本月营业额 from 财务结算总表 where 日期 = #" & Date & "# "
    Set Rs = Conn.Execute(sql)
    本月营业额 = Rs("本月营业额")
    sql = "select sum(尚欠) as 本月待收 from 财务结算总表 where 日期 = #" & Date & "# "
    Set Rs = Conn.Execute(sql)
    本月待收 = Rs("本月待收")
    sql = "select sum(尚欠) as 待收合计 from 财务结算总表 where 尚欠<>0 "
    Set Rs = Conn.Execute(sql)
    待收合计 = Rs("待收合计")
    Conn.Close
    Set Conn = Nothing

初学SQL，见笑了！
1、今日营业额和待收合计好像是对了！
2、关于本月的，不知道如何表达
3、有没有更简单简练的代码方式

谢谢老师们！

vbee

数据透视表才是第一选择

danhanqing

vbee 发表于 2017-11-6 18:12
数据透视表才是第一选择

用于窗体中显示结果的。我是新手，请老师示例谢谢！

danhanqing

vbee 发表于 2017-11-6 18:12
数据透视表才是第一选择

sql = "select sum(实收) as 今日营业额 from 财务结算总表 where 日期 = #" & Date & "# "
    Set Rs = Conn.Execute(sql)
    今日营业额 = Rs("今日营业额")
今日的营业额解决了，但本月该如何表达还没想出来！