A
ado7758
Unregistered / Unconfirmed
GUEST, unregistred user!
MAINADS.close; MAINADS.open; if not (MAINADS.State in [dsedit,dsinsert]) then MAINADS.edit; a:=strtofloat(MAINADS.fieldByname('YE').AsString); b:=strtofloat(edtCK.TEXT); c:=strtofloat(edtZSJE.TEXT); MAINADS.fieldByname('YE').AsString:=floattostr(a+b+c); MAINADS.fieldByname('ZSJE').AsString:= trim(edtZSJE.Text); MAINADS.Post;这样会提示Field'YE' cannot be modified