delphi + Access 货币长度的问题？(100)

我在procedure TdmQ0301.rsQ0114Entry1FEarnAccountGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin if Sender.AsCurrency = 0 then Text := '' else Text := FormatCurr(AppObj.GCurrFormat, sender.AsCurrency);end;中规格化了货币值，使用了，弹出“浮点数错误”，原因是什么，有什么方法解决吗？

是不是这个字段本身不是数值型的，有些记录的值不可以转化为浮点数，导致格式化的时候提示异常？

接受答案了.