主题：请教每隔24小时在日期列增加一行并显示为当天

请教每隔24小时在日期列增加一行并添加日期为当天,代码如下:

Static dt As Date
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 24 Then
    dt = Date.Now

     Dim dr As DataRow = DataTables("表A").Find("日期=#" & dt & "#")

    If dr Is Nothing Then

        dr=DataTables("表A").AddNew

        dr("日期")= dt

        DataTables("表A").Save()

    End If

End If

请大师对代码指教.

此主题相关图片如下：qq图片20130822103122.jpg

目标是想实现每隔24小时在表A的日期列自动增加一行并添加日期为当天,如:今天24时添加为2013-08-22,明天24时添加为2013-08-23,以实现表内数据的及时更新,想使用计划管理器,代码不对请指教.