老师，基本可以了，就是选择复制其中的几列我还不会，研究了半天也不行，如果把下面的两个代码结合起来就完美了。还请您费费心。'------------------------自动复制选中行其中的几列----------------------------------------------------------------------
Dim r As Row = Tables("工时表").current
Dim Cols1() As String = {"生产工段","考勤班组","考勤员","操作人","商品编码","商品全名"}
Dim dr2 As Row = Tables("工时表").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols1(i)) = r(Cols1(i))
Next
'-----------------------------------------------自动复制上一天数据-------------------------------------------------------
If DataTables("工时表").Find("日期='" & Date.today & "' ") IsNot Nothing Then
Forms("考勤管理2").Open()
'msgbox("已经添加")
Else
Dim maxid As Integer = DataTables("工时表").compute("max([_Identify])")
Dim f As New Filler '数据填充器
f.SourceTable = DataTables("工时表") '指定数据来源
f.Filter="日期='" & Date.today.AddDays(-1) & "'" '筛选昨天的数据
f.DataTable = DataTables("工时表") '指定数据接收表
f.Fill() '填充数据
DataTables("工时表").ReplaceFor("日期",Date.today,"日期='" & Date.today.AddDays(-1) & "' and [_Identify] >" & maxid ) '昨天的日期赋值为今天
DataTables("工时表").save
End If
加好友 
发短信
Post By：2020/3/18 16:15:00 [只看该作者]
