Question

VB中写入数据到dategrid的问题

我写的程序，单击一下可以将txt文本框中的数值分别存入dategrid对应的列中，但是我想限制某一文本框值的存入，当这个值和dategrid中已有数值重复时就弹出错误提示：某字段值不能出现重复的值，请问该怎么写，谢谢
我的代码：
Private Sub cmdadd_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("前端盖厚度1").Value = Val(前端盖厚度1.Text)
Adodc1.Recordset.Fields("前端盖外径").Value = Val(前端盖外径.Text)
Adodc1.Recordset.Fields("活塞杆外径").Value = Val(活塞杆外径.Text)
Adodc1.Recordset.Update
End Sub
比如我想限制 活塞杆外径.Text 这个文本框中值写入，如果写入的值和dategrid中已有数值重复时就弹出错误提示：“活塞杆外径值不能重复”

Answer 1

Private Sub cmdadd_Click()
Adodc1.Recordset.AddNew
在上两行之间加入代码：
查找Adodc1.Recordset中是否有记录满足
Adodc1.Recordset.Fields("活塞杆外径").Value = Val(活塞杆外径.Text)，若有，提示并退出sub。

Answer 2

不太理解楼主的东东，你给出的代码是对数据库的访问啊，没有datagrid的代码啊，如果是对数据库的重复性限制，可以使用访问数据库的单列数据与文本内容进行比较，然后限制写入数据库就行了，如果是datagrid，可以使用for循环，访问datagrid的行数，进行比较就行了。

Answer 3

datagrid的行数你获得后，逐行获取活塞杆外径值，和你的这个值比较。如果重复就提示。