主题：请教一个行状态的问题

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行

    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行

        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行

        If r.Locked <> True Then

            r.Locked = True

        End If

        If e.Table.Current.DataRow.RowState <> DataRowState.Unchanged Then

            r.Save() '保存之

            MessageBox.Show("保存了")

        End If

    End If

End If

这段代码不能为啥不能自动保存？

难道这条语句 r.Locked = True

不会改变行状态？（已确定行没被锁定，这条语句执行后已执行了锁定操作）