我在同一个表中录入数据,因为每天的行比较多,而且每周同一个日子记录差别不大,所以通过筛选某天的记录,然后批量复制,比如我筛选出上周一的记录,然后本周一自动复制其中的几列,再自动填充日期,这样就减轻的工作量。
原来的思路是增加了一个“选中”列,然后筛选以后将选中列自动打勾,再复制打勾行的部分列,但是实际使用中,发现如果我筛选出的部分行已经通过审核被锁定,就无法再打勾,权限上又不允许录入人员解锁,导致不能完全按要求复制,下面的代码中,怎么样才能成为填充可见行
Dim Cols1() As String = {"姓名","班次","岗位"}
Dim Cols2() As String = {"姓名","班次","岗位"}
For Each dr1 As DataRow In DataTables("表A").Select("[选中] = true")
Dim dr2 As DataRow = DataTables("表A").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
怎么样将黄色部分改成选择可见行