在添加了一个数据后，数量自动减a1个
Dim a1
Dim findstring1
Dim b1
Frame2.Enabled = True
Form5.Adodc1.Recordset.AddNew
a1 = Val(Text18.Text)
If Combo3.Text <> "" Then
findstring1 = "型号= 'Combo3.Text' "
Data1.Recordset.FindFirst findstring1
Data1.Recordset.Edit
Data1.Recordset.Fields("现有库存量").Value = Data1.Recordset.Fields("现有库存量量").Value - a1
End If
End If
这样字可以吗

what are you want to do?