关于SQL语句（group by )的问题

Question

程序代码如下：   str = " TH001= '" & db & "' and TH002= '" & dh & "'    strsql = " SELECT TH001 as 进货单别,TH002 as 进货单号,TH003 as 序号,TH004 as 品号,TH005 as 品名,TH006 as 规格," & _
            "TH008 as 单位,sum(TH015) as 验收数量,TH009 as 仓库,TH014 as 验收日期,TH030 as 审核码 FROM PURTH WHERE" & str & _
            "group by TH004,TH015 "
   Set rss.ActiveConnection = cns
   rss.Open strsql运行时出现的提示：
   "列purth.th001在选择列表中无效，因为该列不包含在聚合函数中，也不包含在group by 子句中"

Answer 1

strsql = " SELECT TH001 as 进货单别,TH002 as 进货单号,TH003 as 序号," & _
    "TH004 as 品号,TH005 as 品名,TH006 as 规格,TH008 as 单位,"& _
    "sum(TH015) as 验收数量,TH009 as 仓库,TH014 as 验收日期,TH030 as 审核码 "& _
    "FROM PURTH WHERE" & str & _
    " group by TH001,TH002,TH003,TH004 ,TH005,TH006,TH008,TH009,TH014,TH030 "

Answer 2

谢谢(家人）不过 group by 后面不能加TH003,因为TH003字段内容不一样