HELP 还是查询不出什么问题？ - 编程论坛

Artless2013-05-23 19:37

以下是引用ttt96ttt在2013-5-23 19:17:07的发言：


正常来说这个部门号为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。