if Tables("现场检查").Current isnot Nothing then
If Tables("现场检查").Current.DataRow.RowState <> DataRowState.Unchanged Then MessageBox.show("该记录已经被修改,保存之前不可换行") e.cancel = True
End ifEnd If