起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 150|回复: 3

【结】表格文档数据字段显示的问题

[复制链接]
发表于 2009-8-25 09:00:38 | 显示全部楼层 |阅读模式
表格文档在编辑的情况下,如果数据字段为0 ,能不能不显示呢?
目前只能在打印输出的时候不显示

111.jpg

71.83 KB, 下载次数: 96

回复

使用道具 举报

发表于 2009-8-25 09:15:10 | 显示全部楼层
试试字段的编辑属性吧,应该有一项控制显示的表达式。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-8-25 16:43:09 | 显示全部楼层
procedure TBUDGETTOTALINFO.DataSetBudgetGetFieldText(DataSet: TDataSet; Field: TDataField; var Text: string; DisplayText: Boolean);
begin
   if  Field.FieldName= 'FBMaterialCharge'  then
    if variants.VarToStr(Field.Value) = '0' then
      Text := ''
    else
      Text :=  Field.Text;
   end;

结贴!

基本上可以实现
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-8-25 17:26:43 | 显示全部楼层
完美版本:
procedure TBUDGETTOTALINFO.DataSetBudgetGetFieldText(DataSet: TDataSet; Field: TDataField; var Text: string; DisplayText: Boolean);
var
  lBizField : TBizField;
begin
  lBizField :=  (DataSet as TBizDataSet).BizFieldByName(Field.FieldName);
  if  (lBizField.DataType = TDataType.dtNumber) or (lBizField.DataType = TDataType.dtInteger) or (lBizField.DataType = TDataType.dtFloat) then
  begin
    if variants.VarToStr(Field.Value) = '0' then
      Text := ''
    else
      Text :=  Field.Text;
  end;
end;
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-17 07:59 , Processed in 0.047544 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表