RS.FIELDS("ZF").VALUE=RS.FIELDS("KM1").VALUE+RS.FIELDS("KM2").VALUE这句改成这样试试:
if not isnull(rs.fields("km2").value) then
rs.fields("zf").value=cdbl(text1.text) + rs.fields("km2").value
else
rs.fields(zf").value=cdbl(text1.text)
end if
if not isnull(rs.fields("km2").value) then
rs.fields("zf").value=cdbl(text1.text) + rs.fields("km2").value
else
rs.fields(zf").value=cdbl(text1.text)
end if
RS.EDIT
RS.FIELDS("KM1").VALUE=TEXT1.TEXT
RS.FIELDS("ZF").VALUE=TEXT1.TEXT+RS.FIELDS("KM2").VALUE
RS.UPDTAE
RS.FIELDS("KM1").VALUE=Val(TEXT1.TEXT)
RS.FIELDS("ZF").VALUE=Val(TEXT1.TEXT)+IIF(ISNULL(RS.FIELDS("KM2").VALUE),0,RS.FIELDS("KM2").VALUE)
RS.UPDTAE