主题：关于身份证到期

参考代码，做个例子发上来测试

Select Case e.DataCol.Name
    Case "有效天数","读取身份证时间"
        If e.DataRow.IsNull("读取身份证时间") OrElse e.DataRow.IsNull("有效天数") Then
            e.DataRow("有效期") = Nothing
        Else
            e.DataRow("有效期") = e.DataRow("读取身份证时间").AddDays(e.DataRow("有效天数"))
        End If
End Select