【结帖】onGetFieldText 代码 求助！！**

oracle0526

我想需要的结果是如果数字类型的字段值为零，则显示为空。怎么写代码，是在此事件里写吗？我写了一个好像不管用如下：
procedure TMJ_JTG05_MON_TTL_INFO.DataSetEDIT_MJ_JTG05_MON_TTLGetFieldText(DataSet: TDataSet; Field: TDataField; var Text: string; DisplayText: Boolean);
begin
  Inherited;
  if (Field.DataType = TFieldType.ftBCD) and (field.Value=0) then
   text:='';
end;

end.

jiahaiming

应该是可以的。
检查一下是否条件没有触发

atiger

这个用于编辑的还是浏览的？如果是浏览的，直接通过字段的  编辑属性 -  输出文本 来定义就可以了，参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=16819  2楼

oracle0526

好了，还是用代码控制的应该是：
if (Field.DataType = TFieldType.ftFMTBcd)and (field.AsFloat=0)  then
   text:='';
应该是TFieldType.ftFMTBcd 而不是 TFieldType.ftBcd

zfang

好的，谢谢反馈。