发信人: 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;
----
抵制日货，从我做起！
坚决不给日本鬼子做事！
求职条件之一：日资、中日合资、中日合作企业免谈。
|
|