找出满足条件1,条件2,条件3的记录 STRSQL="SELECT * FROM [TABLENAME] WHERE [FLD1]='001' AND [FLD2]='42334' AND [FLD3]='SDA'"再判断此记录的项4是否为空 With Data1 If .Recordset("FLD4") Is Null Then
Else
End With
Data.RecordSource = "SELECT * FROM TABLENAME WHERE FIELD1 = '" & TXT1.TEXT & "' AND FIELD2 = '" & TXT2.TEXT & "' AND FIELD3 = '" & TXT3.TEXT & "'"Data.Refreshif Len(Data.RecordSet("FIELD4")) = 0 then Data.RecordSet("FIELD4") = "你的数值" else Data.RecordSet("FIELD4") = Data.RecordSet + "新值" end if
Adodc1.RecordSource ="SELECT * FROM 表 WHERE 字段1='001' AND 字段2='42334' AND 字段13='SDA'" Adodc1.Refresh if len(trim(adodc1.recordset.fields("字段") & ""))=0 then adodc1.recordset.fields("字段") =值 adodc1.recordset.update else adodc1.recordset.fields("字段") =值+val(adodc1.recordset.fields("字段")&"") adodc1.recordset.update endif adodc1.refresh
STRSQL="SELECT * FROM [TABLENAME] WHERE [FLD1]='001' AND [FLD2]='42334' AND [FLD3]='SDA'"再判断此记录的项4是否为空
With Data1
If .Recordset("FLD4") Is Null Then
Else
End With
Data.RecordSet("FIELD4") = "你的数值"
else
Data.RecordSet("FIELD4") = Data.RecordSet + "新值"
end if
Adodc1.Refresh
if len(trim(adodc1.recordset.fields("字段") & ""))=0 then
adodc1.recordset.fields("字段") =值
adodc1.recordset.update
else
adodc1.recordset.fields("字段") =值+val(adodc1.recordset.fields("字段")&"")
adodc1.recordset.update
endif
adodc1.refresh