主题：为什么可以输入重复的订单号？

订单（datatable）

订单编号         日期

D1                2011-10-13

D2                2011-9-23

D3                2011-10-13

订单（table）按日期加裁

D1                2011-10-13

D3                2011-10-13

不希望有重复的订单号，可是在“订单”的datacolchanging事件中却显示“ok”(增加输入订单D2)

If e.DataCol.Name = "订单编号" Then
    Dim dr As DataRow 
    dr = e.DataTable.Find("订单编号 = '" & e.NewValue & "'")

'    dr=DataTables("订单信息").Find("订单编号='" & e.NewValue & "'")     (试验也一样的结果)
    If dr IsNot Nothing Then
        e.Cancel=True
    Else
    messagebox.Show("ok")
    End If
End If