If Syscmd.Project.Update(False,False) = False Then Dim drs As List(of DataRow) = DataTables("信息系统巡查表").Select("[巡查日期] <= '" & Date.Today.AddDays(-1) & "'") For Each dr As DataRow In drs dr.Locked = True NextEnd If
像上面的代码,是要求一天前的记录即锁定,用开发版文件,就没有问题,发布后的应用程序,增加记录,就锁不了,不知道是啥原因?