以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何取消被锁定的所有行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54209)
--  作者：荟美绘姿
--  发布时间：2014/7/23 17:41:00
--  [求助]如何取消被锁定的所有行

表A的所有行被锁定了（注：没有锁定表）

我要取消所有行的锁定及锁定所有行

这个代码如何写

 

请大侠帮忙解决，谢谢！

我是个菜鸟
--  作者：Bin
--  发布时间：2014/7/23 17:43:00
--  
全锁定
DataTables("A").ReplaceFor("_Locked",True,"")


全解锁
DataTables("A").ReplaceFor("_Locked",False,"")
--  作者：有点甜
--  发布时间：2014/7/23 17:43:00
--  

DataTables("表A").ReplaceFor("_Locked", True)

 

DataTables("表A").ReplaceFor("_Locked", False)
--  作者：荟美绘姿
--  发布时间：2014/7/23 23:16:00
--  

DataTables("车辆违章表").ReplaceFor("_Locked",False,"")
Dim i As Integer
For i  = DataTables("滤表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("滤表").DataRows(i)
    Dim dr2 As DataRow = DataTables("车辆违章表").Find("车辆基本情况_车牌号码=\'" & dr("车牌号码") & "\' and 车辆基本情况_车牌颜色=\'" & dr("车牌颜色") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
DataTables("车辆违章表").ReplaceFor("_Locked",True,"")

 

 

这个代码为什么每执行一次只能删除一个，而不能全部删除

请大侠解决一下下
--  作者：Bin
--  发布时间：2014/7/24 8:35:00
--  
只能删除1个说明你只FIND到一个,请上例子.
[此贴子已经被作者于2014-7-24 8:35:24编辑过]
--  作者：有点甜
--  发布时间：2014/7/24 9:26:00
--  
DataTables("车辆违章表").ReplaceFor("_Locked",False,"")
Dim i As Integer
For i  = DataTables("滤表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("滤表").DataRows(i)
    Dim dr2 As DataRow = DataTables("车辆违章表").Find("车辆基本情况_车牌号码=\'" & dr("车牌号码") & "\' and 车辆基本情况_车牌颜色=\'" & dr("车牌颜色") & "\'")
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
DataTables("车辆违章表").ReplaceFor("_Locked",True,"")