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

6772920

留个记号,慢慢研究

llwen528

很好，慢慢研究，向你看齐

环秀王子

不知道什么时候出入库录入单能够有添加行和删除行的功能，持续关注中

zjdh

环秀王子 发表于 2015-6-24 08:23
不知道什么时候出入库录入单能够有添加行和删除行的功能，持续关注中

早就有啦！看1楼动画。

环秀王子

zjdh 发表于 2015-6-24 13:04
早就有啦！看1楼动画。

删除记录行的功能有，如果需要出入库的产品非常多，6行记录行不够用再插入新行，会不会对整体数据造成影响

dear小菜

楼主，我想打印那些仓单，一式两联，B5纸连续打印，然后字体可以大一点。能不能帮我设一下打印格式。然后单据的抬头是***公司出库单/入库单这样子就可以了，不用物资两个字。

zjdh

环秀王子 发表于 2015-6-25 09:39
删除记录行的功能有，如果需要出入库的产品非常多，6行记录行不够用再插入新行，会不会对整体数据造成影 ...

目前不支持，不过有先关附件，到1楼下载。

zjdh

dear小菜 发表于 2015-6-25 15:03
楼主，我想打印那些仓单，一式两联，B5纸连续打印，然后字体可以大一点。能不能帮我设一下打印格式。然后单 ...

1. 暂时没空帮你。
2. 抬头有哪些文字都在宏中要引用判别的，不能随便删减添加。

环秀王子

表示在64位win8+32位Excel2013除分项查询外有点问题，其他功能基本可以顺利运行，但是我改动单据录入页listbox1的列宽后就报运行13类型不匹配，

1. Private Sub TextBOX1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     Dim I&, J%, t%, myStr$, k&, N$, P$, S$
   
3.     Dim LG As Boolean, Arr1()
   
4.     Me.ListBox1.Clear
   
5.     myStr = UCase(Me.TextBox1.Value)
   
6.     For I = 1 To Len(myStr)
   
7.         If Asc(Mid$(myStr, I, 1)) < 0 Then LG = True: Exit For
   
8.     Next
   
9.     arr2 = Array("编 码", "物 品 名 称", "规格型号", "单位")
   
10.     k = k + 1
    
11.     ReDim Arr1(1 To 4, 1 To k)
    
12.     For I = 1 To 4
    
13.         Arr1(I, k) = arr2(I - 1)
    
14.     Next
    
15.     For I = 1 To UBound(Arrsj)                   ’错误代码  arrsj为空值
    
16.         S = Arrsj(I, 1) & " " & Arrsj(I, 2) & " " & Arrsj(I, 3)
    
17.         N = ""
    
18.         If LG Then
    
19.             N = S
    
20.         Else
    
21.             N = PINYIN(S)
    
22.         End If
    
23.         If InStr(N, myStr) Then
    
24.             k = k + 1
    
25.             ReDim Preserve Arr1(1 To 4, 1 To k)
    
26.             For t = 1 To 4
    
27.                 Arr1(t, k) = Arrsj(I, t)
    
28.             Next
    
29.         End If
    
30.     Next I
    
31.     If t = 0 Then Exit Sub
    
32.     Me.ListBox1.List = Application.Transpose(Arr1)
    
33. End Sub

复制代码

请老师指导！

zjdh

环秀王子 发表于 2015-6-27 09:31
表示在64位win8+32位Excel2013除分项查询外有点问题，其他功能基本可以顺利运行，但是我改动单据录入页list ...

1. 分项查询中引用了ListView控件，可能你的系统中空间位置不同，系统找不到而出错，可到1楼找答案，注册一个新控件。
2. 你得保存文件后重新打开文件，因为Arrsj是公共变量，需要其他宏运行后才有数据！