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

lisb

你给 我的例子中怎么没有按25楼的改啊，‘1’还在啊，onshow事件里也没有写代码
我改后运行正常，上传附件正常
完整代码如下
unit WDGLZCT;

interface

uses
  Business.System, Business.Forms, Business.Data, Business.Model,DOCLIB ,  DOCRELEVANCYINFO,  DOCRELEVANCYLIB,SYSTEMUTILS;

type
  TWDGLZCT = class(TForm)
    ControlBar1: TControlBar;
    DocViewBar1: TDocViewBar;
    DataNavigator1: TDataNavigator;
    DataGrid1: TDataGrid;
    InfoBroker1: TInfoBroker;
    DataSetBroker1: TDataSetBroker;
    FuncBroker1: TFuncBroker;
    DocView1: TDocView;
    InfoBroker2: TInfoBroker;
    DataGrid1tid: TDataGridColumn;
    DataGrid1nid: TDataGridColumn;
    DataGrid1name: TDataGridColumn;
    DataGrid1bid: TDataGridColumn;
    DataGrid1bname: TDataGridColumn;
    procedure BizFormCreate(Sender: TObject);
    procedure DataSetBroker1AfterScroll(DataSet: TDataSet);
    procedure BizFormShow(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TWDGLZCT.BizFormCreate(Sender: TObject);
begin
     if not DataSetBroker1.DataSet.Active then DataSetBroker1.DataSet.Open;
end;

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],True, TDocAccessKind.akAll);
end;

procedure TWDGLZCT.BizFormShow(Sender: TObject);
begin
  DataSetBroker1AfterScroll(DataSetBroker1.DataSet);
end;

end.

lisb

另外要注意要从系统初始化运行，不能单独运行该功能。

zykj_flame

复制了41楼的代码
按照42楼说的初始化运行了

结果还是28楼同样的错误

是不是因为没有购买文档中心？
27楼不是说与这个没关系的！

zykj_flame

前两天我人不在办公室
今天不知道LISB在不？

lisb

只能新建文档,其他类型只有拥有了决策中心才能用.

zfang

还有问题吗，楼主？

zfang

？？