以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问行隐藏和行冻结  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159533)

--  作者:13796361423
--  发布时间:2020/12/29 15:42:00
--  请问行隐藏和行冻结
请问, 如果把某行隐藏或冻结, 还会参与筛选、排序、或输入数值吗?  我的目的是先让某几行不参与数据的处理, 等处理完后,再加进来
--  作者:有点蓝
--  发布时间:2020/12/29 15:52:00
--  
怎么隐藏的?

冻结会参与筛选、排序、或输入数值

--  作者:13796361423
--  发布时间:2020/12/29 16:09:00
--  那锁定行可以不?
那锁定行可以不?
--  作者:有点蓝
--  发布时间:2020/12/29 16:19:00
--  
锁定行还会参与筛选、排序,但是不能输入数值
--  作者:13796361423
--  发布时间:2020/12/30 8:55:00
--  请问如何锁定特定行
请问如何  在学校列   里       随机先两个第一中学的行,进行锁定?
图片点击可在新窗口打开查看此主题相关图片如下:qq浏览器截图20201230085205.jpg
图片点击可在新窗口打开查看

--  作者:y2287958
--  发布时间:2020/12/30 9:15:00
--  
随机得到两个"_Identify"值,然后锁定
--  作者:有点蓝
--  发布时间:2020/12/30 9:20:00
--  
参考:http://www.foxtable.com/webhelp/topics/2963.htm
--  作者:13796361423
--  发布时间:2020/12/30 9:32:00
--  请问命令如何改进

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(",") & ")"

 

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


--  作者:有点蓝
--  发布时间:2020/12/30 9:42:00
--  
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 < 2 

--  作者:13796361423
--  发布时间:2020/12/30 10:29:00
--  解锁并反向锁定

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行之外的其它行锁定(反向锁定)。命令如何修改?