从数据表中取数据遇到的问题 |
|
答題得分者是：Arlung Miao
|
|
ntjrr
高階會員   發表：240 回覆：312 積分：110 註冊：2005-04-24 發送簡訊給我 |
部份代码如下：
begin
edit5.Text := ADOQuery4.FieldValues['项目名称'];
Edit6.Text := ADOQuery4.Fieldbyname('单价').asstring;
Edit7.Text := ADOQuery4.Fieldbyname('规格').asstring;
Edit8.SetFocus;
end
说明：现在代码运行是成功的，但是单价的值取出的小数不对，例如表中的单价是16.7，但最终出现在EDIT6上的单价是16.70000076，不知道后面的多余的小数哪里冒出来的，（各们前辈不要笑，呵呵）
数据表中单价的字段为数字，单精度型。
请高手们指点一二，谢谢！
------
我的编程起步于ktop，我将永远支持ktop |
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ 取值的形態不對﹐改成如下任一一種方法試試﹕
Edit6.Text := FloatToStr(ADOQuery4.Fieldbyname('单价').AsFloat);
Edit6.Text := FloatToStr(ADOQuery4.Fieldbyname('单价').Value;
Edit6.Text := FloatToStr(ADOQuery4.Fieldbyname('单价').AsVariant; 如果使用的資料庫是SQL Server﹐也可參考看看以下連接﹕
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=43701 =================================
------
忻晟 |
|
Arlung Miao
初階會員 發表：9 回覆：44 積分：25 註冊：2004-08-25 發送簡訊給我 |
|
|
ntjrr
高階會員 發表：240 回覆：312 積分：110 註冊：2005-04-24 發送簡訊給我 |
|
|
ntjrr
高階會員 發表：240 回覆：312 積分：110 註冊：2005-04-24 發送簡訊給我 |
發表時間：2005-05-21 16:13:52
IP:222.184.xxx.xxx 未訂閱
系統時間：2024-06-27 3:14:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |