加一个判断,处理
If s.Contains("长期") Then r("有效日期") = Date.Today.AddYears(200)Else r("有效日期") = s.SubString(8,8).Insert(6,"-").Insert(4,"-") 求修改这个代码地方End If