【结帖】想在使用流程的功能中调用任务轨迹中左边的grid信息，如何实现？**

hero419

实在不好意思，可能写错了。
procedure THTXX.openLCGZ(ID:string);
var
   LCGZ: HTXX.LCGZ;
begin
         LCGZ:=HTXX.LCGZ.Create(self.context);;
         DataSetLC.Close;
         DataSetLC.SQLfilter:='TFLOWID.FID='''+ID+'''';
         DataSetLC.Open;
         LCGZ.ShowModal;
end;

.                                                                                                                                                                                       .
.                                                                                                                                                                                       .

jiahaiminghr

错误定位在哪里？

hero419

[错误]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(41, 15): Undeclared identifier "LCGZ"
[错误]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(43, 21): Undeclared identifier "LCGZ"
[错误]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(47, 15): Undeclared identifier "ShowModal"


在type处的写的是  FormLCGZ: TForm;

jiahaiminghr

出错时，代码编辑器的光标定位在哪里？

hero419

实在不好意思，可能写错了。
procedure THTXX.openLCGZ(ID:string);
var
   [B]LCGZ: HTXX.LCGZ;[/B]
begin
         [B]LCGZ:=HTXX.LCGZ.Create(self.context);;[/B]
         DataSetLC.Close;
         DataSetLC.SQLfilter:='TFLOWID.FID='''+ID+'''';
         DataSetLC.Open;
         [B]LCGZ.ShowModal;[/B]
end;

这三行，我怀疑是我声明错了。
这语句我是在信息层写的。
信息名：HTXX
窗体明：LCGZ
数据集：LC
在窗体的grid中已经指定数据集LC。
.                                                                                                                                                                               .

jiahaiminghr

你打开创建的窗体，看一下这个窗体的类声明

我估计应该是TLCGZ或者TLCGZForm

hero419

unit LCGZ;

interface

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

type
  TLCGZ = class(TForm)
    InfoBroker1: TInfoBroker;
    DataSetBroker1: TDataSetBroker;
    DataGrid1: TDataGrid;
    DataGrid1FTYPENAME: TDataGridColumn;
    DataGrid1Column2: TDataGridColumn;
    DataGrid1FSPERSONNAME: TDataGridColumn;
    DataGrid1FCREATETIME: TDataGridColumn;
    DataGrid1FFINISHTIME: TDataGridColumn;
    DataGrid1EAPPROVE: TDataGridColumn;
    DataGrid1FGUID: TDataGridColumn;
    DataGrid1FID: TDataGridColumn;
    DataGrid1FFLOWGUID: TDataGridColumn;
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


end.

jiahaiminghr

var
   LCGZ: TLCGZ ;

声明语句这样写。

hero419

恩，好了。
procedure THTXX.openLCGZ(ID:string);
var
   LCGZ: TLCGZ;
begin
         [B]LCGZ.Create(self.context);[/B]
         DataSetLC.Close;
         DataSetLC.SQLfilter:='TFLOWID.FID='''+ID+'''';
         DataSetLC.Open;
         [B]LCGZ.ShowModal;[/B]
end;

黑体字出有警告，要紧么？
[警告]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(44, 15): 在'openLCGZ'方法中的变量 'LCGZ' 没有初始化
[警告]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.Info.pas(48, 15): 在'openLCGZ'方法中的变量 'LCGZ' 没有初始化

还有，在表单中引用过程时出现未声明错误。
procedure THTDJ.Button2Click(Sender: TObject);
begin
     [B]THTXX(infobroker1.info).openLCGZ(HTXX.DataSetHT.FieldByName('ID').asstring);[/B]
end;

[错误]Biz:\MASTERMIND\CONTRACT\INFO\HTXX.INFO.DIR\HTDJ.SheetDoc.pas(44, 44): Undeclared identifier "DataSetHT"

jiahaiminghr

初始化应该这样写：
LCGZ := TLCGZ.Create(self.context);