设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1890|回复: 5
打印 上一主题 下一主题

修改的进销存无法应用

[复制链接]
跳转到指定楼层
1#
发表于 2010-3-2 11:03:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我从论坛里下载了个进销存,按照我的要求去修改,结果数据录不了。不知为何原因。请大师们指教!谢谢!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2010-3-3 09:33:36 | 只看该作者
可以了. 改动的地方已经帮你标红了.

Sub 录入数据()
Application.ScreenUpdating = False
If Range("K4") = "入库" Then
    x = 1
    Do While Not (IsEmpty(Sheets("入库").Cells(x, 2).Value))
        x = x + 1
    Loop
    '入库单的行数据统计
    n = x
    z = 6
    With Sheets("单据录入")
        Do While Not (IsEmpty(.Cells(z, 2).Value))
            z = z + 1
        Loop
        For k = 5 To z - 1
                Sheets("入库").Cells(x, 1) = .Cells(2, 5)  '入库单号码
                Sheets("入库").Cells(x, 2) = .Cells(2, 3) '入库日期
                Sheets("入库").Cells(x, 3) = .Cells(k, 2)  '物品代码
                Sheets("入库").Cells(x, 4) = .Cells(k, 3)  '物品名称
                Sheets("入库").Cells(x, 5) = .Cells(k, 4)  '规格
                Sheets("入库").Cells(x, 6) = .Cells(k, 5)  '数量
                Sheets("入库").Cells(x, 7) = .Cells(k, 6)  '总重量
            x = x + 1
        Next k
    End With
    m = x - n
    MsgBox "您已向“入库”中加入了" & m & "条记录,请在“入库”中进行确认!"
ElseIf Range("K4") = "出库" Then
    y = 1
    Do While Not (IsEmpty(Sheets("出库").Cells(y, 2).Value))
        y = y + 1
    Loop
    '出库单的行数据统计
    n = y
    z = 5
    With Sheets("单据录入")
        Do While Not (IsEmpty(.Cells(z, 2).Value))
            z = z + 1
        Loop
        For k = 5 To z - 1
                Sheets("出库").Cells(y, 1) = .Cells(2, 5)  '出库单号码
                Sheets("出库").Cells(y, 2) = .Cells(2, 3) '出库日期
                Sheets("出库").Cells(y, 3) = .Cells(k, 2)  '物品代码
                Sheets("出库").Cells(y, 4) = .Cells(k, 3)  '物品名称
                Sheets("出库").Cells(y, 5) = .Cells(k, 4)  '规格
                Sheets("出库").Cells(y, 6) = .Cells(k, 5)  '销售数量
                Sheets("出库").Cells(x, 5) = .Cells(k, 4)  '总重量
            y = y + 1
        Next k
    End With
    m = y - n
    MsgBox "您已向“出库”中加入了" & m & "条记录,请在“出库”中进行确认"
End If
End Sub
3#
发表于 2010-3-3 12:31:15 | 只看该作者
已帮你测试并完善了一些列的对应.



有个缺点,出库时没有检查在仓的库存够不够出库,意即某物品在仓库存只有80了,出库100系统也不会有警示信息弹出来.需要手工检查以防止负库存出现. 可以自己优化一下,把这个检查功能加进去.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 02:45 , Processed in 0.107149 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表