VB中写入数据到dategrid的问题

2025-06-27 06:46:51

推荐回答（3个）

回答1：

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

回答2：

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

回答3：

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