专家坐堂-新增复制行到表BFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 新增复制行到表B
我想实现：表A的“计划保养日期”=今天，执行：表A的相关列，在表B中新增行后复制

下面代码能够实行：把“计划保养日期”从12月20日修改成今天，表B中马上会增加相关行

但是，昨天（12月5号）我把“计划保养日期”修改到12月6日，电脑没有关机，屏保状态，今天（12月6号），查看表B中没有相关新增行

今天我又把“计划保养日期”修改成2023年12月7日，然后把电脑的时间修改成12月6号23点28分，等到电脑显示12月7日后查看表B，也没有增加相关行

请教：不知道哪里出了问题？

表A，datacolchanged事件

If e.DataCol.Name = "计划保养日期" Then
    If e.DataRow("计划保养日期") = date.today Then
        Dim dr As DataRow  = DataTables("表B").addnew
  dr("报修日期") =e.DataRow("计划保养日期")
  dr("原因分析") =e.DataRow("保养内容")
    End If
End If