D
dodo
Unregistered / Unconfirmed
GUEST, unregistred user!
在D6的Math单元中有一个新函数：RounfTo( ),完全满足你的需要!
F
Flintstone
Unregistered / Unconfirmed
GUEST, unregistred user!
你用什么方法取数据?
你用tquery吗?
如果用这个,你可以在tquery里限制字段显示的.
你用tquery吗?
如果用这个,你可以在tquery里限制字段显示的.
D
desertsmoke
Unregistered / Unconfirmed
GUEST, unregistred user!
如果在Oracle中将该字段的数据类型改为NUMBER(长度，小数点位数),其它数据库中自己查找
风
风中的狼
Unregistered / Unconfirmed
GUEST, unregistred user!
在Update语句中好象Where子句是不能缺少的吧？？
建议你设置一个Double变量
如：
Var
D
ouble;
Begin
//Select语句，用来查找出想修改的记录
D:=Qry.FieldByname('gzf13').AsFloat-Qry.FieldByname('gzf11').AsFloat
-Qry.FieldByname('gzf4').AsFloat-Qry.FieldByname('gzf7').AsFloat;
with qry do
begin
close;
sql.Clear ;
sql.Add ('update gzlsgo set gzf13=D,gzf15=:EE Where 条件');//条件不可少
ParamByName('DD').AsFloat:=D;
ParamByName('EE').AsFloat:=D;
execsql;
close;
end;
End;
End;
建议你设置一个Double变量
如：
Var
D
ouble;Begin
//Select语句，用来查找出想修改的记录
D:=Qry.FieldByname('gzf13').AsFloat-Qry.FieldByname('gzf11').AsFloat
-Qry.FieldByname('gzf4').AsFloat-Qry.FieldByname('gzf7').AsFloat;
with qry do
begin
close;
sql.Clear ;
sql.Add ('update gzlsgo set gzf13=
D,gzf15=:EE Where 条件');//条件不可少ParamByName('DD').AsFloat:=D;
ParamByName('EE').AsFloat:=D;
execsql;
close;
end;
End;
End;
L
lbd
Unregistered / Unconfirmed
GUEST, unregistred user!
round() 可搞定
B
beyondair
Unregistered / Unconfirmed
GUEST, unregistred user!
只把它变成5简单，你是不是有时要表示整数，有时要表示浮点数？
H
HeyTommy
Unregistered / Unconfirmed
GUEST, unregistred user!
SS2000说得不错，，你的数据类型要根据需要来定义，，不要原本用整型的，你用浮点的来
做，虽然在某些情况下可以用，但总不太严谨吧？
做，虽然在某些情况下可以用，但总不太严谨吧？
M
magic6326
Unregistered / Unconfirmed
GUEST, unregistred user!
你们不是吧,一个问题说这么久.搞得我的邮箱满是费话.
快点结束吧.
快点结束吧.
D
denglin
Unregistered / Unconfirmed
GUEST, unregistred user!
[blue][/blue][^]
用FormatFloat(value,#.##)函数很简单、轻松地就解决了。其它方法，是事倍功半。
使用灵活、格式任意定义。
用FormatFloat(value,#.##)函数很简单、轻松地就解决了。其它方法，是事倍功半。
使用灵活、格式任意定义。
W
w.th
Unregistered / Unconfirmed
GUEST, unregistred user!
round()
format()
format()
C
chao_jian
Unregistered / Unconfirmed
GUEST, unregistred user!
同意coolzew，以前也碰过此类问题。
狗
狗不理
Unregistered / Unconfirmed
GUEST, unregistred user!
你用format函数,在DBGRID1的onDRAWCELL的事件处处理
J
jackysun
Unregistered / Unconfirmed
GUEST, unregistred user!
function myround(s:real;non:integer):real;
var
roundi:integer;
j:double;
begin
j:=s;
for roundi:=10 downto non do
begin
j:=j+1/power(10,roundi+2);
j:=roundto(j,-roundi);
end;
result:=j;
end;
var
roundi:integer;
j:double;
begin
j:=s;
for roundi:=10 downto non do
begin
j:=j+1/power(10,roundi+2);
j:=roundto(j,-roundi);
end;
result:=j;
end;
Z
zhugenan
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。