主题：用代码设置表A第一列不重复

放在表A DataColChanged事件中也可以，代码稍改一下

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

不好意思，与上一楼撞车了