如何动态改变Currency字段的显示格式？(40分)

W

wangyuguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #1

今欲隔行改变一Currency字段的显示格式DiaplayFormat：

如： i:=table1.RecNo;
if (i mod 2)=0 then Table1Field1.displayformat:='#0,';
if (i mod 2)<>0 then Table1Field1.displayformat:='#0.00';

无法实现呀！！！！

 

P

popeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #2

listen

 

D

DJ.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #3

可增加一fkCalculated计算型TStringField字段达到你的要求。

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-20

• #4

写 Table1Field1 的 OnGetText 事件：

Text:= 随便你怎么处理 Sender.As....

 

W

wangyuguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-21

• #5

to DJ:
我是新手，我的要求是在同一个字段的显示格式，比如DBGrid上的
Table1Field1，隔行（奇、偶）不同，不知如何在显示第二行时换成Calculated？

不吝赐教！谢谢！

to PiPi:

我试一试！

 

D

DJ.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-21

• #6

onCalcfields事件中写
if (table1.RecNo mod 2)=0 then
Table1CalcField1.asstring:=FormatCurr('#0,',Table1Field1.ascurrency)
else
Table1CalcField1.asstring:=FormatCurr('#0.00',Table1Field1.ascurrency);
试一把

 

W

wangyuguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-21

• #7

谢谢PiPi