小小出入库管理系统(2012年12月又作了更新)

zjdh

回复绝峰
已修改回复

zjdh

LANLIN1642 发表于 2011-12-22 12:19
请教楼主一个问题,在"分项查询"表中,如果我只须要查询"月份",其他查询不要,请问这个代码该怎么写!

PS:首 ...

1.  你不填写其他项目即可！
2.  硬要修改代码可将“分项查询”表的宏全部删除，填入：
Sub 查询()
    Range("A4:Q" & Range("E65500").End(3).Row + 2).ClearContents
    ARR = Sheets("数据库").Range("A2:N" & Sheets("数据库").Range("A65500").End(3).Row)
      ReDim BRR(1 To UBound(ARR), 1 To 14)
        If Range("C2") Then
                For I = 1 To UBound(ARR)
                    If Month(ARR(I, 3)) = Range("C2") Then
                        t = t + 1
                        For J = 1 To 14
                            BRR(t, J) = ARR(I, J)
                        Next
                    End If
                Next
            Sheets("分项查询").Range("A4").Resize(t, 14) = BRR
        End If
End Sub
并移除用户窗体“UserForm3”

zjdh

songshan 发表于 2011-12-22 09:49
大哥，小弟新问题，怎么再输入代码时，窗口随着输入代码位数越多，窗口越小

你为何要将显示比例缩小到80%？
原因就在此！！

news30

楼主猛人~~鉴定完毕

Ziv

zjdh 发表于 2011-12-22 21:13
数据库不是空了吗？
查询表里有数据是以前查询得到的，再查询一下就没了！

库存表里的出库数据和入库数据没有变化  

songshan

分项查询，输入月份显示不出来，并且月份不是查询输入的月份，我数据库里都是10月份的数据，输入“12”，所以数据都出来了

zjdh

Ziv 发表于 2011-12-23 08:55
库存表里的出库数据和入库数据没有变化

原因是库存表被加锁了，解开锁就行啦！
或修改宏，添加2句语句：
Private Sub Worksheet_Activate()
    Dim ARR, BRR, W%, I%, J%
    On Error GoTo 10
    ActiveSheet.Unprotect
    Sheets("库存表").Range("A4:M" & Sheets("库存表").Range("A65536").End(3).Row + 2).ClearContents
    ........................................
    Range("A3:A" & Range("A65536").End(3).Row).AutoFilter
10  ActiveSheet.Protect
End Sub

zjdh

songshan 发表于 2011-12-23 08:58
分项查询，输入月份显示不出来，并且月份不是查询输入的月份，我数据库里都是10月份的数据，输入“12”，所 ...

原因是“查询编码”栏不为空 ！！
你没看“查询方式”注释？
查询编码栏不为空时，前二项不可查询。

Ziv

zjdh 发表于 2011-12-23 15:26
原因是库存表被加锁了，解开锁就行啦！
或修改宏，添加2句语句：
Private Sub Worksheet_Activate()
...

怎么解开锁啊?
我不会弄

zjdh

Ziv 发表于 2011-12-23 15:56
怎么解开锁啊?
我不会弄

撤销工作表保护