发信人: soaringbird(假行僧*飞翔鸟)
整理人: soaringbird(2001-06-06 08:38:57), 站内信件
|
【 在 sczp74 的大作中提到:】
:请问如果用字段编辑器中的GetText and SetText事件?
:如果FIELD的值为2要显示为‘好’,为1显示为‘差’。。。行不行?
:......
我试了试,可以的,给你一个例子:
procedure TForm1.Table1AreaGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
//我是拿Country.db试的。
Text := Sender.AsString;
if Sender.AsInteger <= 200000 then
Text := '小'
else if (Sender.AsInteger > 200000) and (Sender.AsInteger < 1000000) then
Text := '较大'
else
Text := '很大';
//注意:任何一个执行分支都要确保给Text赋值
//你将不能编辑这个字段。
//实际上你可以使用计算字段达到这种效果。
end;
---- 抵制日货,从我做起!
坚决不给日本鬼子做事!
求职条件之一:日资、中日合资、中日合作企业免谈。
|
|