1、有效期如果是长期，你可以赋值为一个几百年后的日期，比如 2999-12-31
If pars(7).contains("长期") Then
r("有效日期") = "2999-12-31"
Else
r("有效日期") = pars(7).SubString(11).Replace(",","-")
End If
2、有效期你也可以改成字符列，不要用日期列。
加好友 
发短信
Post By：2018/9/19 20:25:00 [显示全部帖子]
