excel+access 物料管理系统

cathylu1983 · 发表于 2012-4-22 20:00

不会呀，纯数字字段应该不会错！

听、雨在哭 · 发表于 2012-4-22 02:55

本来以为自己的水平差不多了，可看了你的作品之后，突然发现自己要学的东西还很多，以前学的东西居然不够用了

cathylu1983 · 发表于 2012-4-24 09:45

不如你自己买本书自己学吧，怎么样？

fas1314 · 发表于 2012-4-22 18:01

GOOD JOB .THS

zjglili · 发表于 2012-4-22 19:54

自己又琢磨了一段时间，发现以下两个句子有问题：

inventorys = Application.WorksheetFunction.VLookup(Val(material), Sheet11.Range("A:B"), 2, 0)

leadtime = Application.WorksheetFunction.VLookup(Val(material), Sheet4.Range("A:H"), 8, 0) + Application.WorksheetFunction.VLookup(Val(material), Sheet4.Range("A:K"), 11, 0)

问题好像是出在上面两句的VAL函数，VAL是读取字符串中的数字字段，所以只要有别的字符，就读取不到了，然后就出错！
可是我不知道该用什么语句替换，因为我把VAL删除后，发现如果物料编码是纯数字字段的话，又出错了！
我抓狂了，楼主啥时候来啊？

zjglili · 发表于 2012-4-22 21:32

会错哦，我把我弄的发出来，麻烦帮我看看哈！

cathylu1983 · 发表于 2012-4-23 10:07

我晕！！你在那两段话中把val给去掉了呀？加上就可以了

cathylu1983 · 发表于 2012-4-23 10:48

复件物料管理系统-PSS海外.rar (87.73 KB, 下载次数: 257) 哦，我知道你的意思了，我修改了下程序，改成了用find和sumif, 发上来了

dqnie · 发表于 2012-4-23 14:43

不错，谢谢！

zjglili · 发表于 2012-4-23 19:16

cathylu1983 发表于 2012-4-23 10:48
哦，我知道你的意思了，我修改了下程序，改成了用find和sumif, 发上来了

谢谢楼主~
不过又发现新问题了，呵呵！
“生成供应商发货表”那里，又出现错误！
错误语句是：
i = Application.WorksheetFunction.Match(Val(material), Sheet4.Range("A:A"), 0)

估计也是类似的问题，只是我不会改，麻烦下了啊！
嘿嘿！

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

[原创] excel+access 物料管理系统