主题：表行锁定的问题。

修改代码，看弹出什么

If Syscmd.Project.Update(False,False) = False Then

msgbox(1)
    Dim drs As List(of DataRow) = DataTables("信息系统巡查表").Select("[巡查日期] <= #" & Date.Today.AddDays(-1) & "#")
    For Each dr As DataRow In drs
msgbox(2)

        dr.Locked = True
    Next

msgbox(3)
End If