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.IsNull("第二列") OrElse r.IsNull("第三列") OrElse r.IsNull("第四列") MessageBox.Show(e.Table.Cols(e.OldRange.ColSel).name & "不能为空") e.Cancel = True End If End If End If