主题：自动清除数据

假如系统里的有些数据已经很长时间了，没什么作用，需要让系统自动清理。也就是让系统里数据保持一段时间，超过了这个时间，就全部自动的清理掉。怎么设置？在哪里可以设置？

Select Case e.DataCol.name
    Case "添加日期"
        If e.DataRow.IsNull("添加日期") Then
            e.DataRow("存储期限") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("添加日期"))
            e.DataRow("存储期限") = Math.Round(tp.TotalDays / 365.2422,2)
            If e.DataRow("存储期限") > 1 Then
                Syscmd.Row.Delete()
            End If
        End If
End Select

表中有添加日期和存储期限两列，你看一下这样写对吗？