【结帖】关于表**

lanssm

查询功能是一个Grid列表和一个主表两表分页的形式组成的
这如何从列表双击打开某一张主表呢

atiger

以“onDBClick”在bbs搜索，有许多帖子说明

lanssm

参考了这个帖子：
http://bbs.justep.com/forum.php?mod=viewthread&tid=13289

修改的代码如下：
unit ZCT;

interface

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

type
  TZCT = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerJYCLZHXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    PageControl: TPageControl;
    TabSheet: TTabSheet;
    DocViewJYCLZHXX_JYCLB: TDocView;
    TabSheet1: TTabSheet;
    DocViewJYCLZHXX_JYCLLB: TDocView;
    procedure BizFormShow(Sender: TObject);
    procedure DataGridDblClick(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TZCT.BizFormShow(Sender: TObject);
begin
     InfoBrokerJYCLZHXX.[B]TDocViewJYCLZHXX_JYCLB(JYCLLB.FormDoc)[/B] .DataGrid1.OnDblClick := DataGridDblClick;
end;

procedure TZCT.DataGridDblClick(Sender: TObject);
begin
     [B]pgcMain[/B] .ActivePage := TabSheet1;
end;

end.

报错：
[错误]Biz:\MASTERMIND\YXGL\YXGL\JYCLCX.FUNC.DIR\ZCT.Form.pas(33, 25): Undeclared identifier "TDocViewJYCLZHXX_JYCLB"
[错误]Biz:\MASTERMIND\YXGL\YXGL\JYCLCX.FUNC.DIR\ZCT.Form.pas(39, 6): Undeclared identifier "pgcMain"

请帮忙看看。

jiahaiminghr

没有引用TDocViewJYCLZHXX_JYCLB文档所在的信息！

lanssm

就是项目管理中的引入么？
好像不行啊。

jiahaiminghr

还要uses 信息ID

lanssm

unit ZCT;

interface

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

type
  TZCT = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerJYCLZHXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    PageControl: TPageControl;
    TabSheet: TTabSheet;
    DocViewJYCLZHXX_JYCLB: TDocView;
    TabSheet1: TTabSheet;
    DocViewJYCLZHXX_JYCLLB: TDocView;
    procedure BizFormShow(Sender: TObject);
    procedure DataGridDblClick(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TZCT.BizFormShow(Sender: TObject);
begin
     InfoBrokerJYCLZHXX.TDocViewJYCLZHXX_JYCLB(JYCLLB.FormDoc).DataGrid1.OnDblClick := DataGridDblClick;
end;

procedure TZCT.DataGridDblClick(Sender: TObject);
begin
     pgcMain.ActivePage := TabSheet1;
end;

end.

唉还是不行唉

jiahaiminghr

InfoBrokerJYCLZHXX.TDocViewJYCLZHXX_JYCLB(JYCLLB.FormDoc).DataGrid1.OnDblClick := DataGridDblClick;


把InfoBrokerJYCLZHXX.去掉

lanssm

还是不行啊，我这段代码是在：
procedure TFRM_House.BizFormShow(Sender: TObject);
begin
  INFO_HouseManage.TDOC_HouseManage(DocViewHouse.Doc).DataGrid.OnDblClick :=
    DataGridDblClick;
end;

procedure TFRM_House.DataGridDblClick(Sender: TObject);
begin
  if not dsbHouse.DataSet.IsEmpty then
    pgcMain.ActivePage := tbsHouseDetail;
end;
改过来的，我可能某些地方没有改对，所以想问问，
procedure TZCT.BizFormShow(Sender: TObject);
begin
     TDocViewJYCLZHXX_JYCLB(JYCLLB.FormDoc).DataGrid1.OnDblClick := DataGridDblClick;
end;

procedure TZCT.DataGridDblClick(Sender: TObject);
begin
     pgcMain.ActivePage := TabSheet1;
end;

现在还是报错

jiahaiminghr

应该这样写：
T文档ID(Docview.doc).DataGrid1.OnDblClick := DataGridDblClick