主题：[求助]

帮助文件→表事件→DataColChanging→里面的示例四和示例五，做了示例五，示例四就失效，能不能同时实现啊！

If e.DataCol.Name = "订单号" Then
    If e.NewValue Is Nothing Then
        MessageBox.Show("订单号不允许为空!")
        e.Cancel = True
    Else
        Dim dr As DataRow
        dr = e.DataTable.Find("订单号 = '" & e.NewValue & "'")
        If dr IsNot Nothing Then
            MessageBox.Show("此订单号已经存在!")
            e.Cancel = True
        End If
    End If
End If