设置BeforeSelRangeChange事件:
If e.OldRange.RowSel <> e.NewRange.RowSel Then If e.Table.Current.DataRow.RowState <> DataRowState.Unchanged Then e.Cancel = True End IfEnd If