以下代码可以禁止单列输入重复值，但是只能是和保存之前的数据相比较是否重复的；如果用复制的形式同时输入的重复值则无法过滤，怎么解决？

假定有个订单表，要求订单号列不能输入重复值，可以将这个表的DataColChanging事件代码设置为：

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