| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/12/18 9:26:30 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | var skSum:variant; zfSum:variant; sumCe:variant; sqlstr:='select sum(skje) as skje from sz where carNumber=''+carNO+''and skdate>=#'+timestart+'# and skdate<=#'+timeend+'#'; ...........adoquery操作语句，没问题，略去 sksum:=adoquery2.FieldValues['skje']; sqlstr:='select sum(zfje) as zfje from sz where carNumber=''+carNO+''and zfdate>=#'+timestart+'# and zfdate<=#'+timeend+'#'; .......... zfsum:=adoquery3.FieldValues['zfje']; if sksum>zfsum then begin sumCe:=sksum-zfsum; edit5.Text:='收大于支,差额'+sumCe; end; skje和zfje在数据库中是单精度的.运行时出错，错误显示在"edit5.Text:='收大于支,差额'+sumCe;"这行，大体意思是可变类型转换错误。怎么改呢？前边的语句应该是没有问题.一个大虾提出floattostr(sumCe)可是不行,不论sumCe是variant还是extended ---------------------------------------------- 编程之路真如铁,而今迈步从头越 |
|||||
| 作者： |
|
2003/12/18 10:47:45 | ||||
| 1楼： | edit5.Text:='收大于支,差额 '+FloatToStr(sumCe);这样才行，Delphi不像JavaScript那样类型是无能的。 ---------------------------------------------- 米软科技有限公司  http://www.szmesoft.com
|
|||||
| 作者： |
|
2003/12/18 11:03:06 | ||||
| 2楼： | 就是，variant类型赋值以后就有类型了 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/18 11:05:03 | ||||
| 2楼： | >>1楼 这个方法好象不行,还有其它的吗 ---------------------------------------------- 编程之路真如铁,而今迈步从头越 |
|||||
| 作者： |
|
2003/12/18 12:54:24 | ||||
| 3楼： | 试试 function VarToStr(const V: Variant): string; ---------------------------------------------- -如果我说错了，相信我不是故意的。 |
|||||
| 信息 |
| 登陆以后才能回复 |
