这样写:
if (DBEdit1.Field.IsNull) Or (DBEdit2.Field.IsNull) then
DBedit3.text:='0'
else dbedit3.Text :=floattostr(strtofloat(dbedit1.Text) * strtofloat(dbedit2.Text)) ;
我不是把代码写给你了吗?
这样写:
if (DBEdit1.Field.IsNull) Or (DBEdit2.Field.IsNull) then
DBedit3.text:='0'
else dbedit3.Text :=floattostr(strtofloat(dbedit1.Text) * strtofloat(dbedit2.Text)) ;