主题：老师，帮助中这个代码是不是有问题？

代码是写到datacolchanging事件，而不是datacolchanged事件

或者你改一下代码

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = '" & e.NewValue & "' and _Identify <> " & e.DataRow("_Identify"))
    If dr IsNot Nothing Then
        MessageBox.Show("此订单号已经存在!")
        e.Cancel = True
    End If
End If