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
不会改变行状态?(已确定行没被锁定,这条语句执行后已执行了锁定操作)