主题：[求助]窗口问题和身份证读取

1、你肯定没有升级成功，或者你打包的就是旧的程序；

2、判断一下就行，改字符列也行。

If pars(7) = "长期" Then
    r("有效日期") = r("出生日期").AddYears(200)
Else
    r("有效日期") = pars(7).SubString(11).Replace(",","-")
End If