2,507
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
liulangnanhai 2003-01-07
- 打赏
- 举报
謝謝兩位大俠啦
馮強 2003-01-06
- 打赏
- 举报
hahafan说的是对的，我在详细说说：
在Table里里的Field Editor将字段加入设为固定，就可以在字段对应的GetText事件中写代码。假设字段是Da,
Procedure TForm1.Table1DaGetText(Sender:TField;Var Text:String;DisplayText:Boolean);
begin
if DisplayText then //判断该字段是否有值
Text := FloattoStr(Table1Da.Value/100)+'%'; //用Sender也行
end;
在字段值显示前，将先调用GetText事件，然Text的值显示在格子里。
在Table里里的Field Editor将字段加入设为固定，就可以在字段对应的GetText事件中写代码。假设字段是Da,
Procedure TForm1.Table1DaGetText(Sender:TField;Var Text:String;DisplayText:Boolean);
begin
if DisplayText then //判断该字段是否有值
Text := FloattoStr(Table1Da.Value/100)+'%'; //用Sender也行
end;
在字段值显示前，将先调用GetText事件，然Text的值显示在格子里。
hahafan 2003-01-06
- 打赏
- 举报
在字段的OnGetText事件中
Text := floattostr(Sender.value/100)+'%';
Text := floattostr(Sender.value/100)+'%';
liulangnanhai 2003-01-06
- 打赏
- 举报
在網格里面呢
Billy_Chen28 2003-01-04
- 打赏
- 举报
text:='fieldbyname('aaa').asfloat/100'+'%';
