procedure Tdm.NOWELECChange(Sender: TField);
begin
if DESCRIPT.Value='公司' then //这样写条件对吗?
begin
elec.Value:=(nowelec.Value-preelec.Value)*0.965 ; //始终不能执行这一句
end
else
begin
elec.Value:=(nowelec.Value-preelec.Value)*0.6 ;
end;
end;
begin
if DESCRIPT.Value='公司' then //这样写条件对吗?
begin
elec.Value:=(nowelec.Value-preelec.Value)*0.965 ; //始终不能执行这一句
end
else
begin
elec.Value:=(nowelec.Value-preelec.Value)*0.6 ;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货