交叉查询表中增加字段后，窗体查询代码如何修改？

我在原交叉查询表内增加了：“计量单位”和“总计进仓数量”（对查询日期内同种产品的进仓数量进行汇总）两字段，请问窗体查询代码要如何修改，有劳指教。我现时查询代码是：

Private Sub 入库查询_Click()

Dim strWhere As String
 Dim qdf As DAO.QueryDef
 Dim strSQL As String

strWhere = ""
If Not IsNull(Me.产品编号) Then
strWhere = strWhere & "([产品编号] like '*" & Me.产品编号 & "*') AND "
    End If
    If Not IsNull(Me.进仓日期开始) Then
strWhere = strWhere & "([进仓日期] >= #" & Format(Me.进仓日期开始, "yyyy-mm-dd") & "#) AND "
    End If
If Not IsNull(Me.进仓日期结束) Then
strWhere = strWhere & "([进仓日期] <= #" & Format(Me.进仓日期结束, "yyyy-mm-dd") & "#) AND "
    End If
If Len(strWhere) > 0 Then
strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

If Len(strWhere) > 0 Then
strSQL = "TRANSFORM Sum(每日入库查询.进仓数量) AS 进仓数量之Sum SELECT 每日入库查询.产品编号 FROM 每日入库查询 "
strSQL = strSQL & "WHERE(" & strWhere
strSQL = strSQL & ") GROUP BY 每日入库查询.产品编号 PIVOT Format([进仓日期],'yyyy-mm-dd')"
 Else
 strSQL = "TRANSFORM Sum(每日入库查询.进仓数量) AS 进仓数量之Sum" & _
" SELECT 每日入库查询.产品编号" & _
 " FROM 每日入库查询" & _
" GROUP BY 每日入库查询.产品编号" & _
" PIVOT Format([进仓日期],'yyyy-mm-dd')"
    End If

Set qdf = CurrentDb.QueryDefs("入库交叉表查询")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing

Me.入库交叉表查询子窗体.SourceObject = ""
Me.入库交叉表查询子窗体.SourceObject = "查询.入库交叉表查询"

End Sub
Private Sub 入库清除_Click()
Dim strWhere As String
 Dim qdf As DAO.QueryDef
 Dim strSQL As String

Me.产品编号 = Null
Me.进仓日期开始 = Null
Me.进仓日期结束 = Null
strWhere = ""
 strSQL = "TRANSFORM Sum(每日入库查询.进仓数量) AS 进仓数量之Sum" & _
" SELECT 每日入库查询.产品编号" & _
 " FROM 每日入库查询" & _
" GROUP BY 每日入库查询.产品编号" & _
" PIVOT Format([进仓日期],'yyyy-mm-dd')"
   

Set qdf = CurrentDb.QueryDefs("入库交叉表查询")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing

Me.入库交叉表查询子窗体.SourceObject = ""
Me.入库交叉表查询子窗体.SourceObject = "查询.入库交叉表查询"
Me.入库交叉表查询子窗体.Requery
End Sub

点击下载此附件