Question

在VB6.0里面实现一个按钮两个功能，修改，新增

现在要在VB6.0里面设计一个按钮，使得这个按钮可以修改某一表格的内容，然后将这些内容再新增到一个表格里去。怎么实现啊 有人教我吗？ 可以QQ联系哦
新增的记录如下：
Adodc3.CommandType = adCmdUnknown
Adodc3.RecordSource = "select * from Pos_Z_F"
Adodc3.Refresh
Adodc3.Recordset.AddNew
Adodc3.Recordset.Fields("OS_NO") = Trim(DataCombo1.Text)
Adodc3.Recordset.Fields("wa") = (Text1.Text)
Adodc3.Recordset.Fields("timer") = Time
Adodc3.Recordset.Fields("ITM") = Trim(DataCombo2.Text)
Adodc3.Recordset.Fields("username") = Trim(loginon.DataCombo1.Text)
Adodc3.Recordset.Update
MsgBox "增加记录成功！", vbOKOnly + vbInformation, "提示信息"

修改的这样： Adodc4.RecordSource = "SELECT * FROM TF_POS_Z"
Adodc4.Recordset.Fields("OS_NO") = Trim(DataCombo1.Text)
Adodc4.Recordset.Fields("NEWAZZZZZ") = Trim(Text1.Text)
Adodc4.Recordset.Fields("OS_ID") = Trim(Text2.Text)
Adodc4.Recordset.Fields("ITM") = Trim(DataCombo2)
Adodc4.Recordset.Update
这样好像不行哦。 求高手指点
现在只能新增到POS_Z_F.. 但是不能修改TF_POS_Z里面相对应OS_ID的数据。
我想将修改的语句改成新增的语句 怎么修改啊。

Answer 1

End If
End If
End If
If Len(Priceto) > 0 Then
If Not IsNumeric(Priceto) Then
MsgBox "购买价格输入不正确，请重新输入。"
txtQP2.SetFocus
Exit Sub
Else
If Len(strSQL) > 0 Then
strSQL = strSQL & " AND ProductPrice<=" & Priceto
Else
strSQL = "ProductPrice<=" & Priceto
End If
End If
End If

Answer 2

OS_ID 是关键字段？
修改应该是这样的：根据 OS_ID 找到对应的记录，修改其他字段
Adodc4.RecordSource = "SELECT * FROM TF_POS_Z where OS_ID='" & Trim(Text2.Text) & "'"
if Adodc4.Recordset.EOF then
Adodc4.Recordset.addnew
Adodc4.Recordset.Fields("OS_ID") = Trim(Text2.Text)'如果没有找到，根据输入新增一条记录
end if
'其他字段，新增和修改一样
Adodc4.Recordset.Fields("OS_NO") = Trim(DataCombo1.Text)
Adodc4.Recordset.Fields("NEWAZZZZZ") = Trim(Text1.Text)
Adodc4.Recordset.Fields("ITM") = Trim(DataCombo2)
Adodc4.Recordset.Update

Answer 3

好像要在前面加上一句：Adodc4.Recordset.AddNew

追问

是有内容，并且存在。 我刚刚测试了一下，修改语句可以修改，但是如果TF_POS_Z中没有对应的‘OS_NO’和'ITM'内容的，需要新增，可以执行，但是结果是将我另外一些数据弄乱。