....
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
...
[此贴子已经被作者于2013-3-27 8:31:12编辑过]