不是有强制解锁功能么?
Dim cmd As New SQLCommand cmd.CommandText = "Up date {员工} Set 编辑者 = Null Where [_Identify] = " & Tables("员工").Current("_Identify") If cmd.ExecuteNonQuery = 1 Then Tables("员工").Current("编辑者") = Nothing End If