VB中通过文本框输入的内容来对比数据表表中有没有相同字段,有就更新相同字段数量,没有就新添加一条记录。
例如：有块表内容如下：
表名：培养基
编号      培养基类型      添加剂       数量     操作员
1             M1          青霉素        20         杨红  
2             M2          庆大霉素      20         杨红   
text1.text 代表"培养基类型"
text2.text 代表"添加剂"
text3.text 代表"数量"
在文本框中输入m1  青霉素  20。表中就不单独添加一行，而是原有的数量20变为40。
在文本框中输入m3  青霉素  20。就单独添加一行。请各位大侠能赐教，给出代码。  关键就是查询对比这块不会弄。

大概思路
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find("培养基类型") = Text1.Text And Adodc2.Recordset.Find("添加剂") = Text2.Text
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "此项不允许为空!"

Else

If Not Adodc2.Recordset.EOF And Not Adodc2.Recordset.EOF Then
Adodc2.Recordset.Fields("数量") = Adodc2.Recordset.Fields("数量") + Text3.Text
Adodc2.Recordset.Fields("操作员") = Text4.Text

Else

写入一条新的

End if
.update
.close
msgbox "添加成功!!"
就更新数量的那段老整不对。

[ 本帖最后由 hahadeai 于 2012-11-29 20:27 编辑 ]

我想知道我红色部分有没有写对？？ 如果对了为什么调试不通？ 问题在哪里？
如果不对，要怎么写？

能举个例子吗？

Function AddData()
    Adodc1.RecordSource = "select * from 培养基 order by 培养基类型,添加剂"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveFirst
        For i = 1 To Adodc1.Recordset.RecordCount
            Adodc1.Recordset.Fields("培养基类型") = Text1.Text
            Adodc1.Recordset.Fields("添加剂") = Text2.Text
            Adodc1.Recordset.Fields("数量") = Adodc1.Recordset.Fields("数量") + Text3.Text
            Adodc1.Recordset.MoveNext
        Next i
    End If
end function
这样子对不对？

[ 本帖最后由 hahadeai 于 2012-11-30 19:22 编辑 ]