【结贴】继承桌面的文档如何循环数据**

cdz0451

报错行

shangxy

1.grid中没有显示数据？你添加grid的columns属性了么？
2.procedure TXXCB.actDetailExecute(Sender: TObject);
begin
  TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\JTTXM\XXSJ.Info\XXCK.FormDoc',
    SysUtils.Format('-vvmPlanDetail -l%s -p', [PlanDataSet.FieldByName('FPlanID').AsString]), False, nil, False);
end;
意思实说运行'Biz:\JTTXM\XXSJ.Info\XXCK.FormDoc'功能
3.出错的数据集你做强制类型转换了么？
  参考：
function TPLANNAV.GetPlanDataSet: TSQLDataSet;
begin
  Result := DataSetBrokerPlan.DataSet as TSQLDataSet;
end;

function TPLANNAV.GetPlanCenterInfo: TPlanCenterInfo;
begin
  Result := InfoBroker.Info as TPlanCenterInfo;
end;

cdz0451

出了一些错误，你的指导我也不太明白。给你发资源包，你帮忙调试下吧，这个问题已经又1个星期了

shangxy

楼主给的包导入以后“数据信息”编译就有问题，我没有在你的上面做，我做了一个例子楼主参考一下。

cdz0451

看了你给的例子，我按你给的做了一个，但是报了错误，不知道是哪的问题

shangxy

首先确认你修改代码的单元能够编译通过，因为你昨天给我的包的那个最根的信息都编译不过去。
从错误信息看是这个字段没有找到，楼主怎会用到Fplantitle这个计划表中的字段呢？是不是有的地方没有改过来呢？

cdz0451

编译已经没问题了，但是我也在找报错的这个字段，我没用这个字段啊

shangxy

把你的代码贴出来看一下吧

cdz0451

unit XXCB;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data,
  SystemCore;

type
  TXXCB = class(DESKTOPINFO.TDESKTOPDOC)
    DataSetBroker1: TDataSetBroker;
    InfoBroker1: TInfoBroker;
    Timer1: TTimer;
    ImageList1: TImageList;
    ActionList1: TActionList;
    PopupMenu1: TPopupMenu;
    Grid: TDataTransparentGrid;
    procedure actDetailExecute(Sender: TObject);
    procedure FormDocCreate(Sender: TObject);
  private
    function GetTestDataSet: TSQLDataSet;
    function GetTestInfo: TXXSJ;
  public
    property TestDataSet: TSQLDataSet read GetTestDataSet;
    property XXSJ: TXXSJ read GetTestInfo;
  end;

implementation

function TXXCB.GetTestDataSet: TSQLDataSet;
begin
  Result := DataSetBroker1.DataSet as TSQLDataSet;
end;

function TXXCB.GetTestInfo: TXXSJ;
begin
  Result := InfoBroker1.Info as TXXSJ;
end;

procedure TXXCB.actDetailExecute(Sender: TObject);
begin
TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\JTTXM\XXCK1.Func','' , False, nil, False);
end;

procedure TXXCB.FormDocCreate(Sender: TObject);
begin
  DataSetBroker1.DataSet.Open;
end;     //这行是报错的行

end.

shangxy

procedure TXXCB.FormDocCreate(Sender: TObject);函数中的
Inherited;  怎么没有了？
这样试试：
procedure TXXCB.FormDocCreate(Sender: TObject);
begin
Inherited;
TestDataSet.Open;
end;   

另外把协同常量库修改的地方铁出来看一下