主题：请问行隐藏和行冻结

请问， 如果把某行隐藏或冻结， 还会参与筛选、排序、或输入数值吗？  我的目的是先让某几行不参与数据的处理， 等处理完后，再加进来

那锁定行可以不？

请问如何  在学校列   里       随机先两个第一中学的行，进行锁定？
此主题相关图片如下：qq浏览器截图20201230085205.jpg

Dim ids As String
 Dim lst As new List(of String)
 Dim cnt As Integer = DataTables("表A").DataRows.Count
 Do
     Dim Id As Integer = rand.Next(0,cnt)
     id = DataTables("表A").DataRows(id)("_Identify")
     If lst.Contains(id) =False Then
         lst.Add(id)
     End If
     ids = ids & id & ","
 Loop While lst.count < 2   '5是要抽取的行数
 Tables("表A").Filter = "[_Identify] In (" & ids.Trim(",") & ")"

 

我这是在所有行里抽取两个， 我想在学校列里， 行为“第一中学”的，抽取两个， 并锁定行， 请问命令如何加啊

Dim ids As String
Dim lst As new List(of String)
Dim drs As List(Of  DataRow) =  DataTables("表A").Select("学校='第一中学'")
Dim cnt As Integer = drs.Count
Do
    Dim Id As Integer = rand.Next(0,cnt)
    id = drs(id)("_Identify")
    If lst.Contains(id) =False Then
        lst.Add(id)
        drs(id).baserow("_locked") = True
    End If
Loop While lst.count < 5

 

 

请问如何把这5行解锁并把除这5行之外的其它行锁定（反向锁定）。命令如何修改？

Dim ids As String
Dim lst As new List(of String)
Dim drs As List(Of  DataRow) =  DataTables("初二鹤立考点").Select("代码='36'")
Dim cnt As Integer = drs.Count
Do
    Dim Id As Integer = rand.Next(0,cnt)
    id = drs(id)("_Identify")
    If lst.Contains(id) =False Then
        lst.Add(id)
        drs(id).baserow("_locked") = True
    End If
Loop While lst.count < 5

Dim ids As String
Dim lst As new List(of String)
Dim drs As List(Of DataRow) = DataTables("初二鹤立考点").Select("代码='38'")
Dim cnt As Integer = drs.Count
Do
Dim Id As Integer = rand.Next(0,cnt)
id = drs(id)("_Identify")
If lst.Contains(id) =False Then
lst.Add(id)
drs(id).baserow("_locked") = True
End If
Loop While lst.count < 5

Dim ids As String
Dim lst As new List(of String)
Dim drs As List(Of DataRow) = DataTables("初二鹤立考点").Select("代码='44'")
Dim cnt As Integer = drs.Count
Do
Dim Id As Integer = rand.Next(0,cnt)
id = drs(id)("_Identify")
If lst.Contains(id) =False Then
lst.Add(id)
drs(id).baserow("_locked") = True
End If
Loop While lst.count < 5

Dim ids As String
Dim lst As new List(of String)
Dim drs As List(Of DataRow) = DataTables("初二鹤立考点").Select("代码='45'")
Dim cnt As Integer = drs.Count
Do
Dim Id As Integer = rand.Next(0,cnt)
id = drs(id)("_Identify")
If lst.Contains(id) =False Then
lst.Add(id)
drs(id).baserow("_locked") = True
End If
Loop While lst.count < 5

 

 

请问这几个命令如何能合在一起？

 

此主题相关图片如下：7.jpg

For Each dr As DataRow In DataTables("表A").DataRows
 If DataTables("表A").DataRows(dr).Locked = False Then '如果第一行没有锁定
    DataTables("表A").DataRows(dr).Locked = True '锁定第一行
End If
Next

 

请问这个循环如何写？

Dim str() As String = {"36","38","44","45"}
Dim lst As new List(of String)
Dim drs As List(Of DataRow)
For Each s As String In str
lst.clear
drs = DataTables("表A").Select("第二列='" & s & "'")
Dim cnt As Integer = drs.Count
Do
Dim Id As Integer = rand.Next(0,cnt)
id = drs(id)("_Identify")
If lst.Contains(id) =False Then
lst.Add(id)
drs(id).baserow("_locked") = True
End If
Loop While lst.count < 6
Next
此主题相关图片如下：1111111113.jpg

Dim str() As String = {"36","38","44","45"}
Dim lst As new List(of String)
Dim drs As List(Of DataRow)
For Each s As String In str
lst.clear
drs = DataTables("表A").Select("第二列='" & s & "'")
Dim cnt As Integer = drs.Count
If cnt = 0 Then Continue For
Do
Dim Id As Integer = rand.Next(0,cnt)
id = drs(id)("_Identify")
If lst.Contains(id) =False Then
lst.Add(id)
drs(id).baserow("_locked") = True
End If
Loop While lst.count < 6
Next
此主题相关图片如下：2222222222.jpg

Dim str() As String = {"36","38","44","45"}
Dim lst As new List(of String)
Dim drs As List(Of DataRow)
Dim c As Integer = 6
For Each s As String In str
    lst.clear
    drs = DataTables("初二鹤立考点").Select("代码='" & s & "'")
    Dim cnt As Integer = drs.Count
    If cnt <= c Then
        DataTables("初二鹤立考点").ReplaceFor("_locked",True,"代码='" & s & "'")
    Else
        Do
            Dim i As Integer = rand.Next(0,cnt)
            Dim id = drs(i)("_Identify")
            If lst.Contains(id) =False Then
                lst.Add(id)
                drs(i).baserow("_locked") = True
            End If
        Loop While lst.count < c
    End If
Next

 

 

你好， 这个命令最后是把一些行锁定了， 请问如何把锁定的行剪贴到相同结构的表B里？