主题：如何按计划时间自动锁定后台数据行？

如题，如果后台所有的数据源的表（有的没加载）中如果有一列“锁定”列，其值如果为true则锁定此行，

我写的计划管理中的代码如下，10分钟执行一次，但好象不起用用，请各位老师指点

'锁定后台数据源中有锁定列的行.
Dim tbs As List(Of String)
tbs = Connections("EI").GetTableNames '得到数据源中的所有表名
For Each tb As String In tbs
    For Each dc As DataCol In DataTables(tb).DataCols
        If dc.name = "锁定" Then '如果有锁定列
            For Each dr As DataRow In tb.datarows
                If dr("锁定") = True Then
                    dr.locked = True
                End If
            Next
        End If
    Next
Next

如果要实现我说的这种功能，代码要怎么写？

谢谢！

谢谢blackzhu,不能直接在后台锁定吗？