主题：关于数据修改问题

怎么判断某一行数据是否更改过，如果数据已经发生更改在没有保存数据的情况下禁止行间选择其他数据。

参考

 

http://www.foxtable.com/webhelp/scr/0644.htm

 

这样设置时不管焦点行的内容发生没发生更改都移动不了其他行的

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.DataRow.RowState <> DataRowState.Unchanged Then
            e.Cancel = True
        End If
    End If
End If