【结贴】附件打开问题**

rzport_gongyu

unit MAINFORM;

interface

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

type
  TMAINFORM = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerFWGDXXCX: TInfoBroker;
    ControlBar: TControlBar;
    PageControl: TPageControl;
    TabSheet: TTabSheet;
    DataSetBroker2: TDataSetBroker;
    DataSetBroker3: TDataSetBroker;
    Label3: TLabel;
    DataSetBroker1: TDataSetBroker;
    DocView2: TDocView;
    Button1: TButton;
    DataSetdsWDS: TSQLDataSet;
    OpenDialog1: TOpenDialog;
    DataNavigator1: TDataNavigator;
    procedure Button2Click(Sender: TObject);
    procedure BizFormShow(Sender: TObject);

    procedure Button1Click(Sender: TObject);
  private
    function GetFileName: String;
    function isFile: Boolean;
  public
     procedure DataGridDblClick(Sender: TObject);
     property FileName: String read GetFileName;
  end;

implementation

function TMAINFORM.isFile: Boolean;
  begin
      result := DataSetdsWDS.FieldByName('FISDIRECTORY').AsString = 'N';
  end;

function TMAINFORM.GetFileName: String;
begin
  with DataSetdsWDS do
    begin
      if not Active then Open;
      if (RecordCount > 0) then
        result := DataSetdsWDS.FieldByName('Path').AsString
      else result := '';
    end;
end;
procedure TMAINFORM.Button2Click(Sender: TObject);
begin
close;
end;

procedure TMAINFORM.DataGridDblClick(Sender: TObject);
var
  lContext:TContext;
  form1 : TFWXXXS;
begin
  {if SystemCore.TSYSTEMCORE.Operator.DefaultPosition=nil then
    lContext := SystemCore.TSYSTEMCORE.Operator.Positions[0].Context
  else
    lContext := SystemCore.TSYSTEMCORE.Operator.DefaultPosition.Context; }

  //SystemCore.TSYSTEMCORE.FuncManager.RunFunc(lContext,'',''

  form1:=TFWXXXS.Create(Context);
  form1.ShowModal;
  form1.Free;
end;

procedure TMAINFORM.BizFormShow(Sender: TObject);
var
   NowPersonjg: String;
   StrSQL: String;
begin
  NowPersonjg:=SYSTEMCORE.TSystemCore.Operator.Positions[0].PositionMember.Parent.Parent.DisplayName;
  TSqldataset(DataSetBroker3.DataSet).SQL.Clear;
  StrSQL :='SELECT MIN(bh) bh,wjbt,fwsj,wh,ztc,fl,qzh,mj,bgqx,ys,ngsj,ngr,bwdw,dwfz,hgr,ws,xd,fwdw,zs,cs,cb,wdgl FROM BT_OA_SEND  WHERE bwdw='''+ NowPersonjg +''' GROUP BY wjbt,wdgl,fwsj,wh,ztc,qzh,fl,mj,bgqx,ys,ngsj,ngr,bwdw,dwfz,hgr,ws,xd,fwdw,zs,cs,cb,wdgl ORDER BY fwsj DESC';
  TSqldataset(DataSetBroker3.DataSet).SQL.Text := StrSQL;
  DataSetBroker3.DataSet.Open;

  FWGDXXCX.TFWLB(DocView2.doc).DataGrid.OnDblClick := DataGridDblClick;
end;

procedure TMAINFORM.Button1Click(Sender: TObject);
var
  lResult: String;
begin
  if not isFile then exit;
  try
    lResult := TUnStructureDocUtils.OpenFile(Context, FileName, TDocAccessKind.akReadOut);
  except
    lResult := TUnStructureDocUtils.OpenFile(Context, FileName, TDocAccessKind.akReadOut);
  end;
  //jsDialogs.ShowMsg(lResult, 'OpenFile:');
end;

end.

我在引用知识中心打开附件那个按钮的功能的时候 运行上面的代码，虽然编译通过了 但是打开的都是一个文档，不是对应的文档。请问哪里出问题了？

zfang

是不是数据集没有滚动呢？

rzport_gongyu

什么叫滚动？

zfang

就是说你数据集永远是在第一行。
另外看看环境，是否该数据集的数据被过滤掉了。

lixy

请回馈

rzport_gongyu

文档没有定位到 把GetFileName 重新改了一下 可以了 结帖