|
本帖最后由 danhanqing 于 2023-12-15 14:38 编辑
'查询结果是有两条记录,数量分别都是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
|
|