正常来说这个部门号为06的可以显示在图1那里，而这代码就是查询显示部门06的代码：
  '产品本月总装车间进入数(本月进仓)
        adoRs1.Open "select sum(数量) from SuKiProductInStorage where 产品编号='" & adoRs("产品编号") & "' " _
        & " and 日期 <= convert(datetime,'" & Format(Dat2, "yyyy-mm-dd") & "') and 日期 >= convert(datetime,'" & Format(Dat1, "yyyy-mm-dd") & "')and (入库部门='13'or len(入库部门)=3)"
        
        If adoRs1(0) <> "" Then
          BJ1 = adoRs1(0)
        End If
        adoRs1.Close
        
        
         '产品本月售后进入数(本月进仓)
        adoRs1.Open "select sum(数量) from SuKiProductInStorage where 产品编号='" & adoRs("产品编号") & "' " _
        & " and 日期 <= convert(datetime,'" & Format(Dat2, "yyyy-mm-dd") & "') and 日期 >= convert(datetime,'" & Format(Dat1, "yyyy-mm-dd") & "')and 入库部门<>'13'and len(入库部门)=2"
        
        If adoRs1(0) <> "" Then
          OJ = adoRs1(0)
        End If
        adoRs1.Close

本人已经解决，谢谢这个论坛，真的很给力~~~~~~~~~~~

看不出你的代码那部分显示你要查询部门06。