Office中国论坛/Access中国论坛

标题: 请教大神数据分裂代码，解决代码下标越界的问题 [打印本页]

作者: kst123 时间: 2021-6-20 11:11
标题: 请教大神数据分裂代码，解决代码下标越界的问题
[attach]64082[/attach]
我是一个新学者，对于Excel有点爱好，由于每天登记的发票太多，在Excel HOME论坛找的灵感和帮助下制作了一个发票报销登记表格，在分裂数据是出现下标越界。请教大神怎么处理？

作者: ly 时间: 2021-6-22 07:09
rr是什么？是不是应该mr！！！

作者: kst123 时间: 2021-6-22 08:24

ly 发表于 2021-6-22 07:09
rr是什么？是不是应该mr！！！

这是他人帮我写的，您可以修改一下

作者: aslxt 时间: 2021-6-22 10:30
扫描枪.text的值是什么呢?

作者: kst123 时间: 2021-6-22 11:26

aslxt 发表于 2021-6-22 10:30
扫描枪.text的值是什么呢?

扫码码使用扫码抢对发票扫码，下面是这个二维码扫出来的信息
01,10,041002000211,04749116,9901.00,20210608,67240737822138529800,E37D,

作者: aslxt 时间: 2021-6-23 11:03
我用你给的"01,10,041002000211,04749116,9901.00,20210608,67240737822138529800,E37D"直接粘贴在窗体的文本框中,未发现错误.

作者: aslxt 时间: 2021-6-23 11:04
你到其他电脑测试一下,如果其他电脑正常,也许是你的电脑需要重新注册某些库.

作者: kst123 时间: 2021-6-23 11:06

aslxt 发表于 2021-6-23 11:03
我用你给的"01,10,041002000211,04749116,9901.00,20210608,67240737822138529800,E37D"直接粘贴在窗体的文 ...

复制粘贴上去的没有问题，但是扫码上去的就会出现问题

作者: kst123 时间: 2021-6-23 11:15

aslxt 发表于 2021-6-23 11:04
你到其他电脑测试一下,如果其他电脑正常,也许是你的电脑需要重新注册某些库.

我多台电脑测试之后都是这样，复制上面去的没有问题，但是用扫码抢就会出现问题，不知道怎么解决

作者: aslxt 时间: 2021-6-23 14:39
没有二维码扫描枪测试.也许是扫描枪输出设置,也许是有(例如不可见的)特殊符号.直接用nodepad新建txt文件,然后用扫描枪录入,再设置"显示所有字符"看看有没有毛病.

作者: aslxt 时间: 2021-6-23 14:49
或者:
...
If Me.扫描码.Text <> "" Then
Debug.Print "|" & Me.扫描码.Text & "|" '添加这一句,看看立即窗口显示的是什么
rr = Split(Me.扫描码.Text, ",")
...

作者: kst123 时间: 2021-6-23 15:32

aslxt 发表于 2021-6-23 14:49
或者:
...
If Me.扫描码.Text "" Then

您说的代码添加上去之后仍然是提示下标越界

作者: aslxt 时间: 2021-6-23 16:49
看看立即窗口显示的是什么?

作者: kst123 时间: 2021-6-23 17:03

aslxt 发表于 2021-6-23 16:49
看看立即窗口显示的是什么?

12楼就是扫码后显示的窗口

作者: lingjiang 时间: 2021-6-28 20:46
学习

作者: kst123 时间: 2021-6-29 08:26
已完善

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)