在狐表中应该这样吧.
For Each dr As DataRow In DataTables("库存").DataRows
If dr("地区") = "XXXXXX" Then
dr.Locked = True
End If
Next
如果直接对后台数据进行操作可以这样:
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源"
cmd.CommandText = "UPDATE {库存} SET _Locked = True WHERE 地区 = 'XXXXXX'"
cmd.ExecuteNonQuery()