“zzrq”列输入的值长度必须是8位,下面的代码:
If pr IsNot Nothing Then
改为:
If pr IsNot Nothing And pr("zzrq").length = 8 Then
试一下。