【结贴】文档数据集打开的问题

rzport_lq0

真是奇怪 这个对象创建后，还没用完，到上面那个函数那就怎么就为空了呢？

在上面这个函数下面加上以下代码就OK了，不知道对不对。
  if FDocImageListProvider='' then;
  begin
    FDocImageListProvider := TDocImageListProvider.Create;
    FDocImageListProvider.LargeImageList := ImageList32;
    FDocImageListProvider.SmallImageList := ImageList16;
    FDocImageListProvider.StateImageList := ImageState;
  end;

rzport_lq0

就是10楼的那个没有执行，这是什么原因呢？我以前引用资源集的时候，资源集的oncreate事件也不执行？真是奇怪。

先解释下吧，如果我没有改错就结贴吧。

jiahaiming

不能这样改
楼主还是继续找找原因吧，看看为什么FormCreate没有执行。

rzport_lq0

开始进入 文档关联网格 执行了 TRELEVANCYGRIDWXG = class(TFormDoc)
接着就执行了
procedure TRELEVANCYGRIDWXG.dsbRelevancyCalcFields(DataSet: TDataSet);
begin
  // TODO TS 不严格
  if not DataSet.IsEmpty then
    AddFileImageToColumn(DataSet.FieldByName('FKIND').AsString,
      DataGridFKINDIMAGE);
end;
然后就跳到7楼的那个函数。
根本就不执行formcreate

那能不能在这个对象为空后再去调用那个formcreate呢？

jiahaiming

你是否修改过附件的文档啊？

rzport_lq0

我用没修改的也是一样的。

zfang

你用初始化包（X3 Server\bin下SysInitPkg.brp），把这部分内容还原回来（注意，只要还原这部分内容哦），看是否是好的。

rzport_lq0

如果自动打开数据集就不会出现错误，但是自动打开数据集很慢。不想自动打开数据集。

shangxy

文档关联那个数据集你是在那里取消自动打开的？

rzport_lq0

我在自己地功能上 放了一个数据集代理控件，指向了 文档关联的那个数据集。取消了该功能相关的信息上的 自动打开。