【结贴】文档关联的问题？？***

shangxy

稍等，这个现在没有时间，下午给你做个例子吧。

ott

好的，谢谢，在线等

ott

尚工有结果了吗？

shangxy

现在没有时间，我给你说说他的意思吧，你照着20楼方法做一下
上面的那个连接中的意思是在文档关联表中单独建立一个字段用来与另外一个附件建立关联，
过程是这样的：
首先建立一个  FCustomFilter: String;这样的变量用来存第2个附件的主键，当第2个表的数据集打开的时候对这个变量赋值，并且用这个变量从文档关联表中过滤一下附件，就是这段：
procedure TRelevancyGrid.SetDocRelevancyFilter(AFilter: String);  //实现不同的显示框过滤
begin
  if FCustomFilter <> AFilter then
  begin
    FCustomFilter := AFilter;
    DataSetDocRelevancy.SQLFilter := '标记字段名' + FCustomFilter;
    DataSetDocRelevancy.SQLFiltered := true;
  end;
end;

当你在插入第2个表的附件的时候往 文档关联表中你定义的那个字段中把你的主键添加进去就可以了，就是这段：
procedure TRelevancyGrid.NewDocFromLocal(const AOSFileName: string);  //修改原过程,于用保存标记(“从我的电脑引入”菜单)
begin
    ...
    DataSetDocRelevancy.FieldByName('FFILESTATE').AsInteger := TDOCRELEVANCYINFO2.FileState_New;   //原代码
    DataSetDocRelevancy.FieldByName('FLBJ').AsString := FCustomFilter;  //增加的代码
    DataSetDocRelevancy.Post;   //原代码
    ...
end;

procedure TRelevancyGrid.NewDoc(const AFileName: string;
  AFileAttribute: TFileAttribute);//修改原过程,于用保存标记(“新建文档”菜单)
begin
  ……
    DataSetDocRelevancy.FieldByName('FSUBDIRNAME').AsString := SubDirName; //原代码
    DataSetDocRelevancy.FieldByName('FLBJ').AsString := FCustomFilter;  //增加的代码
    DataSetDocRelevancy.Post; //原代码
  ……
end;

你先照着做着，如果有不明白的地方你贴出来

ott

关联主键定义 里定义的是表1的BH字段。
新增的那个字段 ，记录的是我表2某条编号的值(假如为B2)。

不可能在表1过滤出B2吧？

ott

尚工你帮我做个简单的例子吧。
那段代码我昨天试过了。
实在想不通楼上的问题。
明天就要交付了，急

shangxy

电话沟通过，有问题也可以打电话

ott

刚测出问题
原来在DataSetDocRelevancy.FieldByName('FLBJ').AsString := FCustomFilter;  //增加的代码
这里，FCustomFilter竟然为空。怪不得看不出效果。
怎么到这里就为空了，反反复复看了，不得其解

ott

今天要交付了，急啊，帮我远程看一下吧

shangxy

要不就自己定义个业务参数，在SetDocRelevancyFilter中对参数赋值，然后用这个参数对DataSetDocRelevancy.FieldByName('FLBJ').AsString 赋值。