你是高手吗?

[Jackasdf]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, FR_DSet, FR_DBSet, FR_Class;

type
TForm1 = class(TForm)
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
frUserDataset1: TfrUserDataset;
Table1: TTable;
DataSource1: TDataSource;
Button1: TButton;
frUserDataset2: TfrUserDataset;
procedure Button1Click(Sender: TObject);
procedure frReport1GetValue(const ParName: String; var ParValue: Variant);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
frUserDataset1.RangeEndCount := Table1.FieldCount;
frUserDataset2.RangeEndCount := Table1.FieldCount;
frReport1.ShowReport;
end;

procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant);
begin
if ParName = 'Cell' then
ParValue := Table1.Fields[frUserDataset1.RecNo].Value;
if ParName = 'Header' then
ParValue := Table1.Fields[frUserDataset2.RecNo].FieldName;
end;

end.
运行时出现如下错误:[Fatal Error] Unit1.pas(7): File not found: 'FR_Class.dcu',何解,请指教?

[lextm]

似乎应该是在delphi菜单->tools->Environment options->Search里面加入包含FR_Class.pas文件的文件夹的。

[hellolongbin]

第三方控件的安装问题
跟高不高手没关系

[abc3000]

把这个文件找到'FR_Class.dcu'

然后告诉delphi

[zhaozhen2004]

按一楼说的做。

[zhangA]

FR_DSet, FR_DBSet, FR_Class

这应该是你装的第三方控件吧。


在你的delphi菜单->tools->Environment options->library 里加上控件的安装路径（FR_Class.pas所在的路径），

或者干脆把FR_Class.dcu考到你的工程目录下。

[hexenzhou]

不是高手，

不过你的问题也不需要高手！

[78hgdong]

找到'FR_Class.dcu'文件,加入程序所在的目录

[addua]

高手云集呀！

[jasengod2003]

不是高手，只想进来看看！！