没有测试:
If e.NewRange.RowSel <> e.OldRange.RowSel AndAlso e.Table.Current.locked = FalseThen '而且即将选择另一行并且没有锁定
MessageBox.Show("请先保存当前客户信息!", "提示") e.Cancel = True ' End If
加好友 
发短信
Post By：2011/9/4 19:15:00 [显示全部帖子]
