应该是你的【substring】有问题，比如只有 3个字符，但你获取了第4个位置的字符。
比如，下面的代码，两个substring都是要计算的，如果你rq1的长度小于7，就会报错。
Dim rq_m As Integer =iif(rq1.length <= 7,rq1.SubString(5,1),rq1.SubString(5,2))
加好友 
发短信
Post By：2018/10/16 16:50:00 [显示全部帖子]
