以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于数据修改问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107965)
--  作者：裴保民
--  发布时间：2017/10/13 13:29:00
--  关于数据修改问题
怎么判断某一行数据是否更改过，如果数据已经发生更改在没有保存数据的情况下禁止行间选择其他数据。
--  作者：有点甜
--  发布时间：2017/10/13 14:26:00
--  

参考

 

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

 
--  作者：裴保民
--  发布时间：2017/10/13 15:18:00
--  
这样设置时不管焦点行的内容发生没发生更改都移动不了其他行的
--  作者：有点甜
--  发布时间：2017/10/13 15:22:00
--  
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