數据類型轉換問題,急 (在線等待)

Question

cdsq_Any.Close;
  cdsq_Any.CommandText:='select sum(permonth_amount) as amount_bylmbudget from Budgetpermonth where bgt_year = '''+cdst_Budgetpermonth.fieldbyname('bgt_year').value+ ''' and bgt_month < '''+cdst_Budgetpermonth.fieldbyname('bgt_month').value+''' and fund_no = '''+cdst_Budgetpermonth.fieldbyname('fund_no').value+'''';
  cdsq_Any.Open;
  f_Fundconsume.lbl_amountbylmbudget.Caption := floattostr(cdsq_Any.fieldbyname('amount_bylmbudget').value);問題如下;
sum(permonth_amount)中的permonth_amount在數据庫中為decimal類型
程序運行時老是報錯為'invalid variant type conversion'.
還有一個問題,就是 decimal類型 轉換成 字符類型 用那個函數.

Answer 1

try this:f_Fundconsume.lbl_amountbylmbudget.Caption := cdsq_Any.fieldbyname('amount_bylmbudget').AsString;
这样不是一了百了了吗？

Answer 2

同意楼上的,或者用:
f_Fundconsume.lbl_amountbylmbudget.Caption := formatfloat('0.00',cdsq_Any.fieldbyname('amount_bylmbudget').asfloat);