主题：合同编号重复

If e.DataCol.Name = "合同编号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("合同编号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此合同编号已经存在!")
        e.Cancel = True
    End If
End If

加载所有数据时输入重复合同编号可以提示合同编号已经存在，加载部份数据时，输入相同编号没有提示合同编号已经存在，请问是否要遍历，怎样写代码？