想实现将指定字段求和，不知道语句怎么写，求助！万分感谢！

danhanqing

Sub 提取当前订单信息(frm As UserForm)
'    On Error GoTo 终止运行
    Dim Conn As ADODB.Connection
    Set Conn = LinkDB
    Dim Rs As New ADODB.Recordset
    SQL = "select distinct  * from 明声订单总表 where 制造单号=" & frm.Controls(页面名称 & "_" & "制造单号") & ""
    Rs.Open SQL, Conn, 1, 3

    If Rs.RecordCount > 0 Then
       kh = Rs.Fields("款号")
       客户名称 = Rs.Fields("客户名称")
       下单日期 = Rs.Fields("下单日期")
       交货日期 = Rs.Fields("交货日期")
       订单编号 = Rs.Fields("订单编号")
       产品名称 = Rs.Fields("产品名称")
       规格 = Rs.Fields("规格")
       颜色 = Rs.Fields("颜色")
       单位 = Rs.Fields("单位")
       人民币单价 = Rs.Fields("人民币单价")
       美金单价 = Rs.Fields("美金单价")
       金额 = Rs.Fields("金额")
       完成状态 = Rs.Fields("完成状态")
       备注 = Rs.Fields("备注")
      订单数量 = 总数量 '订单数量是数据表中的字段，想实现将当前制造单号的订单数量求和
   End If
    Conn.Close: Set Conn = Nothing: Set Rs = Nothing
终止运行:
    End Sub

在XCVB

SQL单个条件求和的思路：

1. sql="select ……,sum(cast(订单数量 as folat)) as 订单数量 from 明声订单总表  where 制造单号 like'" & frm.Controls(页面名称 & "_" & "制造单号");"

复制代码