主题：定时归档行数据

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
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

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