.... If e.DataRow.IsNull("第一列") = False Then
dim dr as DataRow = e.DataTable.Find("[_Identify] < " & e.DataRow("_Identify"),"[_Identify] Desc") if dr isnot nothing andalso e.datarow("第一列") <> dr("第一列") then MessageBox.Show("本行内容跟上行内容不一样,禁止操作!", "提示") end if End If