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

zjdh · 发表于 2011-10-27 18:27

你把单据编号前缀由1位改为5位，当然要乱套了！
入库改了出库也得改啊！

sizhen5101 · 发表于 2011-10-27 18:35

zjdh 发表于 2011-10-27 18:27
你把单据编号前缀由1位改为5位，当然要乱套了！
入库改了出库也得改啊！

那我该怎么弄，要修改哪些地方呢

zjdh · 发表于 2011-10-27 19:08

本帖最后由 zjdh 于 2011-10-28 08:20 编辑

连你上次提问的数据库加锁问题都改好了，唯独那个明细表没空修改。

6-2出入库系统修改2.rar (234.58 KB, 下载次数: 50)

zjdh · 发表于 2011-10-27 19:12

含在嘴的黑夜发表于 2011-10-27 10:06
请问登陆账号和密码是多少，谢谢

看一楼下载处。

zjdh · 发表于 2011-10-27 19:41

13938429652 发表于 2011-10-22 09:21
老师你好：我自己也模仿出自己的销售系统可是总是用不到1个小时候出现运行错误然后自动关闭excel是怎么回事 ...

估计是：
1. 你的系统有些设置没有释放内存，造成你的计算机内存溢出（一般不会）。
2. 你得检查你的系统是否有病毒！

sizhen5101 · 发表于 2011-10-27 19:55

本帖最后由 sizhen5101 于 2011-10-27 22:36 编辑

zjdh 发表于 2011-10-27 19:08
连你上次提问的数据库加锁问题都改好了，唯独那个明细表没空修改。

那个单据号在点新建选择单据类型后又变回原来那个号了

又有新问题出现了，修改后编号基本能运行，但出现手动清空数据库时编号自动回到001.不知道问题出现在哪里了。

zjdh · 发表于 2011-10-28 08:22

还是源于你那修改的单据前缀，413楼附件已更新！

sizhen5101 · 发表于 2011-10-28 09:56

本帖最后由 sizhen5101 于 2011-10-28 10:04 编辑

zjdh 发表于 2011-10-28 08:22
还是源于你那修改的单据前缀，413楼附件已更新！

老师，能告诉我具体修改了哪些位置不呢
Private Sub Worksheet_Activate()
If Mid(Cells(1, 12), 6, 6) <> Year(Now()) & Format(Month(Now()), "00") Then
Cells(1, 12) = "RZAJD" & Year(Now()) & Format(Month(Now()), "00") & "001"
End If
If Mid(Cells(2, 12), 6, 6) <> Year(Now()) & Format(Month(Now()), "00") Then
Cells(2, 12) = "CZAJD" & Year(Now()) & Format(Month(Now()), "00") & "001"
End If
End Sub
是这里6,6的问题吗？原来是2,6

听水临风 · 发表于 2011-10-28 15:30

留个记号,慢慢研究

zjdh · 发表于 2011-10-28 15:58

sizhen5101 发表于 2011-10-28 09:56
老师，能告诉我具体修改了哪些位置不呢
Private Sub Worksheet_Activate()
If Mid(Cells(1, 12), ...

If Mid(Cells(1, 12), 6, 6) <> Year(Now()) & Format(Month(Now()), "00") Then

If Mid(Cells(2, 12), 6, 6) <> Year(Now()) & Format(Month(Now()), "00") Then

		自动登录	找回密码
密码			免费注册

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