为什么不能写进字典里

ytmpgght · 发表于 2023-6-1 20:41

今天在运行zxsea老师给我写的“周计划”程序时，发现库存数据不准，
于是就研究问题出在哪里，找了半天可能是出在数组写进字典的这个判断上，
由于我初涉数组与字典，所以想求教各位老师。
看看问题是不是出在了这个地方？怎么改写较好？！

For i = 4 To UBound(arr)
If Len(arr(i, 3)) And Len(arr(i, 11)) Then d(arr(i, 3)) = arr(i, 11)
Next i

吴中泉 · 发表于 2023-6-1 20:54

本帖最后由吴中泉于 2023-6-1 20:58 编辑

没有提供附件不好判断对错

从你截图看，这句
If Len(arr(i, 3)) And Len(arr(i, 11)) Then d(arr(i, 3)) = arr(i, 11)
改成这样试一下：
If Len(arr(i, 3))>0 And Len(arr(i, 11))>0 Then d(arr(i, 3)) = arr(i, 11)

gwjkkkkk · 发表于 2023-6-1 20:57

本帖最后由 gwjkkkkk 于 2023-6-1 21:02 编辑

搞错了。。。

ytmpgght · 发表于 2023-6-1 21:27

吴中泉发表于 2023-6-1 20:54
没有提供附件不好判断对错

从你截图看，这句

麻烦帮我看看，问题是不是出在哪！

ytmpgght · 发表于 2023-6-1 21:28

gwjkkkkk 发表于 2023-6-1 20:57
搞错了。。。

没有错，只是运行后，有时是正确的，有时库存数据是不对的。所以我在研究研究

Thinkwaves · 发表于 2023-6-1 21:43

哪个数据不准？

Thinkwaves · 发表于 2023-6-1 21:46

举个数据不准的例子

ytmpgght · 发表于 2023-6-1 22:00

Thinkwaves 发表于 2023-6-1 21:43
哪个数据不准？

比如压缩包内的程序运行后，库存量的数据为空。实际上应该是有库存的。

Thinkwaves · 发表于 2023-6-1 22:24

ytmpgght 发表于 2023-6-1 22:00
比如压缩包内的程序运行后，库存量的数据为空。实际上应该是有库存的。

把d(arr(i, 3)) = arr(i, 11)改成d(arr(i, 3)) =d(arr(i, 3)) + arr(i, 11)试试

Thinkwaves · 发表于 2023-6-1 22:25

我觉得主要原因应该是第三列的编码有重复的

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

[求助] 为什么不能写进字典里