主题：求助窗口控制代码

我们知道，列有禁止输入重复内容的属性，不过这个属性有局限，就是只有直接在表格中输入的时候才有效，如果你通过窗口输入或者是通过代码设置，同样可以输入重复内容。

我们可以在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