百思不得其解,急:关于数据类型匹配的问题,请指教(100分)

  • 主题发起人 主题发起人 zwg88
  • 开始时间 开始时间
Z

zwg88

Unregistered / Unconfirmed
GUEST, unregistred user!
本人是初学者,遇到以下难题,如下一段程序却老出错,提示:invalid variant type conversion ,类型转换错误。

程序如下:paradox表字段类型为number
gdjfsum,yljsum:double;
gdjfsum:=0;
yljsum:=0;
while gdjfquery.eof<>true do
begin
gdjfsum:=gdjfsum+gdjfquery.fieldvalues['缴费金额'];
glfsum:=glfsum+gdjfquery.fieldvalues['管理费'];
gdjfquery.next;
end;
edit1.text:=formatfloat('0.00',gdjfsum); {*为总额付值*/}
edit3.text:=formatfloat('0.00',glfsum);

用sql出检索出两个数据时累加,还能正确运行,但三个以上累加就出现上面那个毛病,
我觉得好象是循环处的累加不对。

望指正
(另:paradox表中的number是属什么类型)。

非常感谢

 
gdjfsum,yljsum:double;
gdjfsum:=0;
yljsum:=0;
gdjfquery.first;
while gdjfquery.eof<>true do
begin
gdjfsum:=gdjfsum+gdjfquery.fieldbyname('缴费金额').asfloat;
glfsum:=glfsum+gdjfquery.fieldbyname('管理费').asfloat;
gdjfquery.next;
end;
edit1.text:=formatfloat('0.00',gdjfsum); {*为总额付值*/}
edit3.text:=formatfloat('0.00',glfsum);
 
楼上说得对,用value的自动处理有时会有转换错误,强制转换吧
 
非常感谢两位的解释,问题已解决。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
940
SUNSTONE的Delphi笔记
S
后退
顶部