主题：报表定时复制的问题

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目117.table

 A表

原数据1() ----> 字符型(16)

原数据2() ----> 字符型(16)

原数据3() ----> 字符型(16)

原数据4() ----> 字符型(16)

原数据5() ----> 字符型(16)

逻辑列1() ----> 逻辑型

原日期1() ----> 字符型(16)

原图片1() ----> 备注型

判断列() ----> 逻辑型

判断日期() ----> 日期型

 

B表

 

目标数据1() ----> 字符型(16)

目标数据2() ----> 字符型(16)

目标数据3() ----> 字符型(16)

目标数据4() ----> 字符型(16)

目标数据5() ----> 字符型(16)

目标逻辑() ----> 逻辑型

目标日期() ----> 日期型

目标图片() ----> 备注型

假如我有两个表,分别为“A表”和“B表”

当我选勾“A表”里的“判断列"，系统自动将今天的日期添到"判断日期"列

然后将在1天后自动将“A表”里的数据对应复制到“B表”并删除“A表”里相应的行

这个怎么做啊

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目117.table

那大于15天怎么写啊

Dim Cols1() As String = {"原数据1","原数据2","原数据3"}
Dim Cols2() As String = {"目标数据1","目标数据2","目标数据3"}
For Each dr1 As DataRow In DataTables("表A").Select("判断日期 < #" & Date.Today.AddDays(-15) & "#")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
DataTables("表A").deletefor("判断日期 < #" & Date.Today.AddDays(-15) & "#")

 

是不是这样写啊？

 什么意思？你这样写 DataTables("表A").Select("判断日期 < #" & Date.Today.AddDays(-15) & "#")

 

 意思是，把15天前的数据复制过去，然后删除。