主题：窗口中操作时后台表的唯一性问题

先find一下，没有，再用sqlfind，查到就提示。

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
    Else
        dr = e.DataTable.sqlFind("订单号 = '" & e.NewValue & "'")
        If dr IsNot Nothing Then
            MessageBox.Show("此订单号已经存在!")
            e.Cancel = True
        End If
    End If
End If