在表中的列设置中设置禁止重复有一定的局限性，因此根据帮助，在表中事件的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

功能已经实现，无论是控件，还是直接操作，都不会重复了。但有一个小问题，如果在控件中修改到重复值时，会报两次错。虽然不影响使用，但感觉还是有些奇怪，问有没有办法解决？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

上面的附件没打包。再传个。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.zip

是这样的，当你在控件中改了有重复的值后，按下回车键或Tab键时（目前只测试了这两个键）会出现两次报错。

好吧，我把例子做得稍微完整一些。再次上传，没有添加任何代码，只是起动了窗口，并在窗口再添加了一个文本控件，用于输入第二列。

请在第一个框中输入一个重复的值，如当前是1111，后面有2222，3333，你可以输入一个2222，或3333，然后按回车，或者是Tab. 这时就会有两次报错。

我说过并不影响功能的实现。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2_1.zip

是的，原因我也想到了，只是无法解决，没关系，不影响使用。以后再想其他办法，看看能否在控件用代码来替代表事件。谢谢啦。