主题：[求助]如何实现修改完当前行后必须保存才能对其它行进行操作？请帮忙看看代码是否有问题！已上传文件，请再帮忙看看！（已解决）

在表事件PositionChanged添加了如下语句，是希望每修改完一行中的数据后，在光标离开当前行再点击其它行时能自动提示用户是否保存在该行中所做的改动。目前的问题是：修改完当前行后，点击其它的行没有出现提示，必须是点击其它行后再返回点击该行才会弹出提示框，请问问题出在哪里？ With Tables("结算方式窗口_table1") If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改 Else Dim Result As DialogResult Result = MessageBox.Show("是否保存当前行的修改?", "提示", MessageBoxButtons.YesNo) If Result = DialogResult.Yes Then Tables("结算方式窗口_table1").Current.Save() Else Tables("结算方式窗口_table1").Current.Reject() End If End If End With