[请求]2800文档关联如何使用？**

zykj_flame · 发表于 2007-8-10 08:31:57

顶下，等待……
已经按文档的做了
问题出在哪？

lisb · 发表于 2007-8-10 08:47:53

你引用的跟我9楼的是一样的吗?看仔细！

alang · 发表于 2007-8-10 11:07:46

9楼贴图的第三步没有做

zykj_flame · 发表于 2007-8-10 15:23:36

13楼说的那步，做了

uses
Business.System, Business.Forms, Business.Data, Business.Model, DOCLIB,RELEVANCYINFO,RELEVANCYLIB,SYSTEMUTILS;

USE全部引用了

lisb · 发表于 2007-8-10 15:35:33

10楼中间两个引用错了
应该引用业务模型\协同系统\文档\关联\文档关联信息和文档关联库

zykj_flame · 发表于 2007-8-10 16:13:49

15楼指出的错误
我改正了编译通过了

在运行的时候，报错停在

文档关联表单[代码]里的
procedure TRELEVANCYDOC.Load(const ATableURL: string; AKeys, AKeyValues: array of string;
  AImmediate: Boolean; AAttachAccess: TDocAccessKind);
const
  sSelectSQL = 'SELECT * FROM %s';
begin
  Assert(Length(AKeys) = Length(AKeyValues), 'Error: TRelevancyDoc.Load');

图

lisb · 发表于 2007-8-10 17:18:16

一进功能就报？看一下你代码是怎么写的？

yancm · 发表于 2007-8-10 17:34:00

楼主调试看一下Akeys和AkeyValues的个数是不是一样

zykj_flame · 发表于 2007-8-10 17:47:56

代码就是这些
procedure TWDGLZCT.DataSetBroker1AfterScroll(DataSet: TDataSet);
begin
//    syssrv.SysService.Time;
   (DocView1.Doc as TRelevancyDoc).FuncURL :='Biz:\TESTSPACE\WWXGBQYSTEST.Func';
   (DocView1.Doc as TRelevancyDoc).Load('',['Biz:\TESTSPACE\TESTDB.DATABASE\treetest.Table\tid.FIELD'],
   [DataSet.FieldByName('tid').AsString, '1'],True, TDocAccessKind.akAll);
end;

zykj_flame · 发表于 2007-8-10 17:59:05

按照18楼说的

我断点跟踪了下
AKeys和AKeyValues的值如下图

		自动登录	找回密码
密码			立即注册