SQL中SUM的结果不对不知道错在哪里了

danhanqing

'查询结果是有两条记录，数量分别都是1，金额一个是79，一个是21，按理总数量应该是2，总金额是100，结果只出来总数量是1，总金额是21（最后一条记录的）

Sub 依款号读取刀模数据(frm As UserForm)
Dim Conn As ADODB.Connection
Set Conn = LinkDB
Dim Rs As New ADODB.Recordset
    SQL = "select 款号,刀模类型,刀片类型,刀模编号,刀模开数,制作日期,制作厂商,单价,sum(数量) as 总数量, sum(金额) as 总金额 ,状态 from 刀模登记总表 where 款号='" & frm.Controls(页面名称 & "_" & "款号") & "' group by 款号,刀模类型,刀片类型,刀模编号,刀模开数,制作日期,制作厂商,单价,状态"
        Rs.Open SQL, Conn, 1, 3
    If Rs("总数量") = 0 Then
       MsgBox "【" & frm.Controls(页面名称 & "_" & "款号") & "】" & "目前没有可用刀模！"
       Rs.Close: Conn.Close: Set Rs = Nothing: Set Conn = Nothing
       Exit Sub
    Else
        刀模类型 = Rs.Fields("刀模类型")
        刀片类型 = Rs.Fields("刀片类型")
        刀模编号 = Rs.Fields("刀模编号")
        刀模开数 = Rs.Fields("刀模开数")
        制作日期 = Rs.Fields("制作日期")
        制作厂商 = Rs.Fields("制作厂商")
        单价 = Rs.Fields("单价")
        状态 = Rs.Fields("状态")
        数量 = Rs("总数量")
        金额 = Rs("总金额")
        Rs.Close: Conn.Close: Set Rs = Nothing: Set Conn = Nothing
    End If
End Sub

rendiule01

Sub 依款号读取刀模数据(frm As UserForm)
Dim Conn As ADODB.Connection
Set Conn = LinkDB
Dim Rs As New ADODB.Recordset
    SQL = "select 款号,刀模类型,刀片类型,刀模编号,刀模开数,制作日期,制作厂商,sum(数量) as 总数量, sum(金额) as 总金额 ,状态 from 刀模登记总表 where 款号='" & frm.Controls(页面名称 & "_" & "款号") & "' group by 款号,刀模类型,刀片类型,刀模编号,刀模开数,制作日期,制作厂商,状态"
        Rs.Open SQL, Conn, 1, 3
    If Rs("总数量") = 0 Then
       MsgBox "【" & frm.Controls(页面名称 & "_" & "款号") & "】" & "目前没有可用刀模！"
       Rs.Close: Conn.Close: Set Rs = Nothing: Set Conn = Nothing
       Exit Sub
    Else
        刀模类型 = Rs.Fields("刀模类型")
        刀片类型 = Rs.Fields("刀片类型")
        刀模编号 = Rs.Fields("刀模编号")
        刀模开数 = Rs.Fields("刀模开数")
        制作日期 = Rs.Fields("制作日期")
        制作厂商 = Rs.Fields("制作厂商")
        单价 = Rs.Fields("单价")
        状态 = Rs.Fields("状态")
        数量 = Rs("总数量")
        金额 = Rs("总金额")
        Rs.Close: Conn.Close: Set Rs = Nothing: Set Conn = Nothing
    End If
End Sub