【结帖】如何判断一个文档是否有附件？**

rzport_lq0

这是客户要求的啊！！
那如何用表格实现 嵌入表单 上传附件？
表格里面没有布局选项！

lixy

类似这样

rzport_lq0

知道了，我现在只想保留图标一项，怎么把其他的项去掉？

lixy

复制  业务模型协同系统\文档关联\文档关联信息文档关联网格
在 业务模型协同系统\文档关联\文档关联信息 黏贴
把不用显示的列都隐藏起来。
然后引用文档关联表单的时候，引用您自己复制的这个。
效果

rzport_lq0

附件的图标如何修改？
我想把所有附件的的图标都改成别针形状

lixy

加一个新的imagelist，里面加上曲别针图片。必须设在第一个哦。
在设置列设计器DataGridFKINDIMAGE的images为你的新imagelist。
然后修改
AddFileImageToColumn函数
为这样

procedure TRelevancyGrid.AddFileImageToColumn(const AFileExt: string;
  ACol: TDataGridImageColumn);
var
  lFileExt: string;
  lImageIndex: Integer;
begin
  lFileExt := FileSys.FileUtils.GetFileExt(AFileExt);
  if ACol.Values.IndexOf(lFileExt) = -1 then
  begin
    lImageIndex := FDocImageListProvider.GetImageIndex(AFileExt);

   ACol.Values.Add(SysUtils.UpperCase(lFileExt));
   if lFileExt<>'' then
         ACol.ImageIndexes.Add('0')/// SysUtils.IntToStr(lImageIndex)

    else
      ACol.ImageIndexes.Add('209');
  end;
end;

rzport_lq0

谢谢了！！
这个问题可以结贴了！！

zfang

好，谢谢反馈。