主题：[求助]如何实现按日期条件锁定行？？

 在什么事件里激发？

 代码写在按钮，还是写在哪里，说明白——何时锁定。

 写在afteropenproject事件里吧。

for each dt as datatable in datatables
    for each dr as datarow in dt.select("日期 < #" & date.Today & "# And _locked = false")
        dr.locked = true
    next
next

你要对所有的表进行设置，还是只是对某几张张表这样设置？再有，你的那些数据表都有日期列吗？

 sql数据源的话，把# 改成 '

dim tbNames() as string = {"表A", "表B", "表C"}

for each name as string in tbNames
    for each dr as datarow in DataTables(name).select("日期 < '" & date.Today & "' And _locked = false")
        dr.locked = true
    next
next