UC知道请高手帮忙翻译一下代码
来源：百度知道 编辑：UC知道 时间：2024/05/14 09:55:25
Private Sub cmdChange_Click()
Dim rs As ADODB.Recordset
Dim strSQL As String
Set rs = New ADODB.Recordset
rs.Open "Select * From 库存表 where 产品号 = '" & 产品号 & "'", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
rs("库存量") = rs("库存量") + 进库数量
rs.Update
Else
rs.AddNew
rs("产品号") = 产品号
rs("库存量") = CInt(进库数量)
rs.Update
End If
cmdAdd.Enabled = True
cmdAdd.SetFocus
cmdChange.Enabled = False
rs.Close
Set rs = Nothing
MsgBox "库存修改完成,请验收", vbInformation, "系统提示..."
End Sub
Dim rs As ADODB.Recordset
Dim strSQL As String
Set rs = New ADODB.Recordset
rs.Open "Select * From 库存表 where 产品号 = '" & 产品号 & "'", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
rs("库存量") = rs("库存量") + 进库数量
rs.Update
Else
rs.AddNew
rs("产品号") = 产品号
rs("库存量") = CInt(进库数量)
rs.Update
End If
cmdAdd.Enabled = True
cmdAdd.SetFocus
cmdChange.Enabled = False
rs.Close
Set rs = Nothing
MsgBox "库存修改完成,请验收", vbInformation, "系统提示..."
End Sub
cmdChange _点击(私人替补)。
作为ADODB.Recordset昏暗
昏暗的strSQL作为字符串
新ADODB.Recordset rs =集合
拉尔夫-舒马赫。打开“选择*从库存表产品号= '”及地方产品号”及“、”
CurrentProject。连接,adOpenKeyset,adLockOptimistic
如果不是rsEOF然后
遥感(rs)= "库存量”(“库存量”)+进库数量
rs.Update
别的
rs.AddNew
拉尔夫-舒马赫(“产品号”)=产品号
拉尔夫-舒马赫(“库存量”)= CInt(进库数量)。
rs.Update
如果
cmdAdd。真正使=
cmdAdd.SetFocus
cmdChange。使=错误
rs.Close
设置rs =一无所有
MsgBox”库存修改完成,请验收”,vbInformation”,系统提示……”
最后潜艇