afterOpenProject事件
For Each dr As DataRow In DataTables("表A").Select("") If dr("首次检测_检测时间") < Date.Today.AddDays(-30) Then dr.Locked = True End IfNext