主题：如何批量锁定满足条件的行，如何批量解锁满足条件的行？谢谢

锁定指定条件的行：

Dim Q As  String

Q = e.Form.Controls("单位名称").Value

if Q = "" then   

Return       '终止代码的执行

Else

For Each dr As datarow In datatables("调资基础数据").datarows
if dr("单位名称") = Q then
   dr.locked = true
end if
Next

End if

解锁指定条件的行：

Dim Q As  String

Q = e.Form.Controls("单位名称").Value

if Q = "" then   

Return       '终止代码的执行

Else

For Each dr As datarow In datatables("调资基础数据").datarows
if dr("单位名称") = Q then
   dr.locked = False
end if
Next

End if