主题：代码求助

数据表aftercheckrow事件。最好可以选中后解锁行，清除选中后锁定行

 For Each r As Row In Tables("支出明细").Rows
    If r.Checked = True Then
Dim Result As DialogResult
            Result = MessageBox.Show("确定需要更改数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.yes Then
    Tables("支出明细").Current.Locked = False
    If Result = DialogResult.No Then
    r.Checked = False
     End If
    End If
 End If
Next

黄颜色部分的代码不管用。