想通过改写如下代码让表M实现表B的效果,即复制行时进行一些判断,将重复考勤不记录但又不留空白(打卡时间距上次打卡时间在5分钟内视为重复考勤),代码写在配置栏的标准按钮1上。
Dim dr2 As DataRowFor Each dr1 As DataRow In DataTables("表D").DataRows dr2 = DataTables("表M").AddNew() For i As Integer = 0 To DataTables("表D").DataCols.Count - 1 dr2(Tables("表D").Cols(i).Name) = dr1(Tables("表D").Cols(i).Name) NextNext
试用版的代码在窗口中写的。