主题：请教计划管理问题

呵呵，是不是多人操作？ 如果启动多个，就会有重复了。

如果多人操作，用sql语句检测和添加行比较合适。

如bin所言，按道理是不会有重复的了。

要不跟踪一下吧，看看什么时间，什么人增加了行。

你增加时间和用户两列，时间列的日期时间格式设置为LongDateTime，将你的代码改一下：

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

    DataTables("日期管理").Loadfilter = ""
    DataTables("日期管理").load
    dt = Date.Today
    Dim dr As DataRow = DataTables("日期管理").Find("日期=#" & dt & "#")
    If dr Is Nothing Then
        Dr=DataTables("日期管理").AddNew
        Dr("日期")= dt
        dr("时间")= Date.now
        dr("用户") = User.Name
        DataTables("日期管理").Save()
    End If
End If