主题：代码求助

数据表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

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

自己顶一下。

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 
    else
    r.Checked = False
     End If
    End If
 End If
Next

谢谢。好用

这个代码好像是针对整个表的。能否改成只针对当前行？

简单，你看看这个事件：

 

http://www.foxtable.com/help/topics/1640.htm

 

 

If e.Row.Checked = True Then
    Dim Result As DialogResult
    Result = MessageBox.Show("确定需要更改数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.yes Then
        e.Row.Locked = False
    Else
        e.Row.Checked = False
    End If
End If

好用