查询不出相应产品编码 - 编程论坛

#2

wxflw2013-05-23 18:16

日期查询用where 日期 between #" & Format$(dat2, "yyyy/mm/dd") & "# and #" & Format$(dat1, "yyyy/mm/dd") & "#另外我不知道你对入库部门需要怎么个结果
len(入库部门)=0"或6" 这个肯定不行的，
len（）出来的值是一个字节数所以你就算输入06也是错的，直接入库部门)=06 或者用模糊查询入库部门 like % " & 查询条件 & "% 输入0 或6 就都可以了

#3

ttt96ttt2013-05-23 18:33

如图1与图2

只有本站会员才能查看附件，请登录

  正常来说这个部门号为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'and len(入库部门)=2"

        If adoRs1(0) <> "" Then
          OJ = adoRs1(0)
        End If
        adoRs1.Close

#4

ttt96ttt2013-05-23 18:35

'产品本月总装车间进入数(本月进仓)
        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
这是查询除部号06以为的其它

#5

zyjhb2013-05-24 15:24

"select 产品编号 from SuKiProductInStorage where 入库部门='06'"