主题：定时归档行数据

有两张结构完全一致的表，表A中有一列月份，会记录下该行数据生成时的月份即“收租月”，如图：
此主题相关图片如下：1.png

因为数据是根据当前月份生成的，现在希望：

如果5月生成了一批数据，当时间到6月1日凌晨00:00时，将“收租月”显示是5月的数据全部都复制到表B，并删除表A的数据，请问该如何实现？

 

AfterOpenProject事件，判断一下然后filler填充数据即可

 

Dim r As Row = Tables("表A").current
If r IsNot Nothing AndAlso r("收租月") <> Date.Today.Month & "月" Then
   '填充数据
End If
DataTables("表A").DataRows.Clear

 

http://www.foxtable.com/help/topics/0680.htm

 

Dim r As Row = Tables("本期开piao").current
If r IsNot Nothing AndAlso r("收租月") <> Date.Today.Month & "月"  Then
    Dim f As New  Filler  '填充数据
   
    f.SourceTable = DataTables("本期开piao") '指定数据来源
    f.SourceCols = "具体位置,承租单位,收款方式,开piao日期,车位费" '指定数据来源列
    f.DataTable = DataTables("BQKP归档") '指定数据接收表
    f.DataCols =   "具体位置,承租单位,收款方式,开piao日期,车位费"  '指定数据接收列
    f.Fill() '填充数据
End If
DataTables("本期开piao").DataRows.Clear()

 

我按照这样写入之后，不能备份到“BQKP归档”表中，“本期开piao”表内的数据不管是当前月还是以往月份的数据全部都被删除掉了。请问我哪里写错了？

试试，看弹出什么。

 

Dim r As Row = Tables("本期开piao").current
msgbox(r("收租月"))
msgbox(Date.Today.Month & "月")
If r IsNot Nothing AndAlso r("收租月") <> (Date.Today.Month & "月")  Then
    Dim f As New  Filler  '填充数据
   
    f.SourceTable = DataTables("本期开piao") '指定数据来源
    f.SourceCols = "具体位置,承租单位,收款方式,开piao日期,车位费" '指定数据来源列
    f.DataTable = DataTables("BQKP归档") '指定数据接收表
    f.DataCols =   "具体位置,承租单位,收款方式,开piao日期,车位费"  '指定数据接收列
    f.ExcludeExistValue = True
    f.Fill() '填充数据
   
    DataTables("本期开piao").DataRows.Clear()   
End If

在修改afteropenproject显示当前月-->6月，两次。

因为"本期开piao"表示根据当前月生成数据行，在程序打开状态下，我先将系统时间改成5月，然后它会生成5月的数据，然后关闭程序之后将系统时间改为6月再打开，程序没有生成6月该生成的数据，关闭之后再打开才会生成6月数据，等于要两次才会生成6月数据。

收租月是6月，自然不会拷贝数据啊，要到7月才会拷贝6月的数据啊