fastreport报表脚本问题

fastreport报表竖式右向左排版方法：1、打开报表菜单，在工具栏的“报表模板”选项中选择空值，点击“设计”按钮，打开报表设计界面。2、打开报表菜单，在工具栏的“报表模板”选项中选择需要更改的模板，点击“设计按钮”。3、打开报表设计界面，选择竖式右向左排版，双击。4、对报表进行更改后，保存文件即可。

　　情景：FastReport设计器页面默认设置为A4纸，但如果需要显示的字段过多，这时就出现了页面的大小无法满足完整显示所需内容的问题。　　解决：出现这个问题后，我们可以在来到"文件"—"页面设置"选项中进行设置，在这里可以直接调整页面的纸张类型和尺寸，但是我使用的时候更多的会调整Portrait为Landscape，所谓Portrait按词霸的翻译就是“纸短的一边在顶端和底端的打印方式”，而Landscape则恰恰相反，意思是“纸长的一边在顶端和底端的打印方式”，可以简单的理解Portrait为纵向，Landscape为横向，通过这样的调整既可以保证用标准的A4纸打印，又满足了设计时能够扩充纸张大小，保证显示内容的目的。　　FastReport.net 常用方法 - hcyu2012 - hcyu2012的博客　　　　二、过滤或排序显示数据　　情景：为了将数据按顺序显示，便于查看。　　解决：此时可以双击数据区，这时就会看到排序和过滤的选项，可以通过点击后面fx图标，使用设计器的方式实现，当然也可以手动添加代码：　　FastReport.net 常用方法 - hcyu2012 - hcyu2012的博客　　三、添加和设置子报表　　情景：显示复杂关系的数据。　　解决：进入"报表"--"设置报表栏"，可以对报表进行各种设置，其中数据首只会打印一次，数据尾则会在所有数据之后被打印。　　FastReport.net 常用方法 - hcyu2012 - hcyu2012的博客　　　　四、日期显示　　情景：有些数据表里的日期字段是空的，这时FastReport会自动将其转化为0001/1/1的形式。　　解决：此时如果想要让日期为空时不显示此默认的形式，可以再次进入"报表"--"选项"中，在"一般"选项卡中取消勾选"转换空值"即可。　　FastReport.net 常用方法 - hcyu2012 - hcyu2012的博客　　五、数据表的嵌套　　情景：复杂的数据库表之间有很多复杂的主从对应关系，这时需要在数据源中建立关系。　

1、去百度搜索FastReport.Net4.0下载，2、解压后打开目录：FastReport.Net4.0_Full。安装：FRNetDemo2010.msi把FastReport.Net+V2013.2.5+For+.Net4.0文件夹中的所有内容覆盖到Fastreport安装目录。假设安装目录为：【C:Program FilesFastReportsFastReport.Net Demo】3、将6个DLL文件对应覆盖到系统程序集目录：C:WindowsMicrosoft.NETassemblyGAC_MSIL。4、在安装目录下，执行Demo，然后Run the Designer。就可以开始设计打印模板了。5、默认报表的格式，点击预览可查看报表呈现效果。6、假设从数据库查询出来数据打印。点击数据源--新建数据源7、新建连接--->输入服务器名称，用户名和密码，数据库。测试连接成功后，点击下一步。8、选择数据库中，想要查询的表。展开可勾选需要查询的字段。点击完成即可9、右键编辑一个文本框，依次展开数据源--Connection--ORD_SalesOrder。把这个CustomerName拖动到文本框。10、把这些文本框里面的数据换成ORD_SalesOrderLine表里面的信息。11、点击预览，就可以看到我们从数据库里面查出来的表的信息。

你好，1、去百度搜索FastReport.Net4.0下载，2、解压后打开目录：FastReport.Net4.0_Full。安装：FRNetDemo2010.msi把FastReport.Net+V2013.2.5+For+.Net4.0文件夹中的所有内容覆盖到Fastreport安装目录。假设安装目录为：【C:Program FilesFastReportsFastReport.Net Demo】3、将6个DLL文件对应覆盖到系统程序集目录：C:WindowsMicrosoft.NETassemblyGAC_MSIL。4、在安装目录下，执行Demo，然后Run the Designer。就可以开始设计打印模板了。5、默认报表的格式，点击预览可查看报表呈现效果。6、假设从数据库查询出来数据打印。点击数据源--新建数据源7、新建连接--->输入服务器名称，用户名和密码，数据库。测试连接成功后，点击下一步。8、选择数据库中，想要查询的表。展开可勾选需要查询的字段。点击完成即可9、右键编辑一个文本框，依次展开数据源--Connection--ORD_SalesOrder。把这个CustomerName拖动到文本框。10、把这些文本框里面的数据换成ORD_SalesOrderLine表里面的信息。11、点击预览，就可以看到我们从数据库里面查出来的表的信息。

FastReport的安装可以选择自动或手动。 自动安装：用FastReport中自带的recompile.exe。 1. 选择编译器：C++Builder6 2. 选择FastReport的版本：Professional 3. 选择Teechart的版本：根据你的机器上安装的，如果没有升级过TeeChart，就选择TeeChartStd 4. 我建议选择recompile all packages 然后进行编译，一般在没有升级TeeChart的时候编译成功率比较高。如果升级了TeeChart，需要多几个步骤才行。 手动安装：安装新版本前，如果以前安装过FastReport，最好将旧的版本卸载。 将压缩包中的文件解压到某目录，如D:ccrunvclFastReport，建议使用一个固定目录，不要放在临时文件夹中，因为以后可能经常用这个组件的时候，需要包含头文件用。临时目录可能哪天忘了就清除了。 下载FastReport v4.2 Full Source(完整源码版)，解压缩。 1. 打开FastReportFastScriptfs6.bpk--》编译(Compile)--》安装(Install) 2. 打开FastReportFastScriptfsDB6.bpk--》编译(Compile)--》安装(Install) 3. 打开FastReportFastQBfqb60.bpk--》编译(Compile) 4. 新建一个FastReportLibBCB6目录，复制FastReportSource*.*到这个LibBCB6目录 5. 如果需要中文的设计器，复制FastReportResChinese*.*到FastReportLibBCB6目录，覆盖同名文件。 6. 打开FastReportLibBCB6frx6.bpk--》编译(Compile)--》安装(Install) 7. 打开FastReportLibBCB6frxDB6.bpk--》编译(Compile)--》安装(Install) 如果需要TeeChart的支持，就把Tee6相关的bpk也编译并安装。 FastReport需要FastScript的支持。 另外，在BDS2006下的安装： 运行recompile.exe，关掉打开的BCB或Delphi或BDE程序。在recompile窗口上，Compiler选择D2006(Delphi,C++)，FR3 Version选择Professional，TeeChart Version选择TeeChartStd，然后选择Recompile all packages，最后Compile。等待编译完成后打开C++Builder2006，此时组件列表并没有显示FastReport组件，因为相应的bpl还没有安装进来。 C++Builder2006窗口菜单中选择Component-->Install Packages-->Add-->找到刚才FastReport目录下LibD10下的dclfrx10.bpl，添加进来就OK了。

提供的数据集记录只有一条，报表模板没有设置好。1、提供的数据集记录只有一条导致fastreport报表预览只显示一个记录，绑定数据源。2、报表模板没有设置好导致fastreport报表预览只显示一个记录，是值报表模板。

我用的一直都是FineReport，它比较方便，不过既然楼主问的是fastreport，这里我就不谈FineReport了。要创建fastreport的主从报表，需要建立两个数据集。一个是主表的数据集，另外一个是一个明细表的数据集；根据下面的截图来创建fastreport报表。首先，运行报表设计器，创建一个空白报表。为了添加一个明细的数据集，需要调用 "Configure Bands" 窗口。点击 "Configure Bands" 按钮便可实现调用，如图所示，也可以通过"Report|Configure Bands..." 菜单项来调用"Configure Bands"窗口。配置窗口中展示了数据集结构：选择"Data" 数据集，如图所示，单击鼠标右键以显示上下文菜单,并选择”data“band，接下来，嵌套数据便被添加到所选择的数据集中。按“close”按钮关闭窗口。你会发现报表模版便成下面的样子；将band与相应的数据源连接，并将数据列置于bands上。我们将使用两个数据源：分类和产品。运行报表通过这种方法，你可以创建一个带有无线嵌套数据的主从报表类型。

1、创建报表我们做一个在运行其使用这些组件建立一个简单报表的示范。在delphi环境中创建一个新的工程，并加入以下组件：TfrxADOComponents，Tbutton，TfrxReport，TfrxDesigner，TfrxDialogControls，TADOConnection。2、设置属性ADOConnection1:LoginPrompt = FalsefrxADOComponents1:DefaultDatabase = ADOConnection1双击设计按钮，定义一个事件函数：procedure TForm1.Button1Click(Sender: TObject);beginfrxReport1.DesignReport;end;运行delphi，点击设计按钮，进入报表设计器。3、简单的列表式报表在设计器环境中点击新报表，并且换到data页，放置一个ADOTable组件到页面上4、注意database属性已经连结到了数据库。并选择数据表名称：TableName = "Customer"到报表设计页，连接Master band数据源，并在数据树中将数据源字段托到band上合适的位置，调整大小。界面如下：设计完毕，点击预览按钮，浏览结果。同为比较常用的报表工具，个人觉得finereport的创建报表步骤可能更加简单易懂，它具有类excel界面。

方法/步骤1、首先打开FastReport软件，在数据目录中右键点击，新建一个数据源；根据向导提示填写完数据库的连接信息。2、物理数据源新建完成之后如下图所示，有一个之前选择数据表的目录，然后可以通过这些数据表来在page页面里面绑定数据和布局3、可以在page的startpage事件中自定义数据的连接与过滤条件，这些数据库连接（strConnection）与过滤条件(strSql)可以是从外部作为参数传入进来的。绑定之后一定要记得调用Init()方法，不然表格就没有数据加载！4、如果在同一个report里面有多个地方使用这个表格（或者是循环使用，比如在for循环里面，只是过滤条件不一样），都是按上面的GetReportDataSource方法来获取表格并初始化，表格里面的数据其实是每次循环使用过滤条件得到结果的并集，就是每次操作的结果都会加入到表格中，那么结果可能就不是我们想要的了！5、这时我们在获取数据表，并自定义绑定数据连接和过滤条件后，进行初始化之前就需要设置表格的ForceLoadData属性为true;如下图所示：6、通过官方的帮助文档可以知道设置了这个属性，在每次初始化时都会清空之前的数据，重新加载数据。如果调用次数多也会影响加载速度，所以默认值是false

方法有很多，具体方法如下：1、首先准备多张报表格式，让用户根据自己的需要选择，将来打印时调用这张报表就可以了，这种方法很简单，容易实现，并且一单有新的用户要求，只要加一张报表格式就解决了。（推荐使用）2、为用户提供报表设计器。fastreport自带的报表设计器（我们设计报表时用的就是），可以为用户设计功能很强的报表，并在发布时带上。3、中和一下上述的两种方法，用户可以选择，也可以自定义报表。以下FastReport动态生成报表例子:procedure TForm1.Button1Click(Sender: TObject);var v: TfrView; b: TfrBandView; Page: TfrPage;begin frReport1.Pages.Clear; frReport1.Pages.Add; // create page Page := frReport1.Pages[0]; b := TfrBandView.Create; // create Title band b.SetBounds(0, 20, 0, 20); // position and size in pixels b.BandType := btReportTitle; // (only Top and Height are significant Page.Objects.Add(b); // for the band) v := TfrMemoView.Create; // create memo v.SetBounds(20, 20, 200, 16); v.BandAlign := baWidth; v.Prop["Alignment"] := frtaCenter; // another way to access properties v.Prop["Font.Style"] := 2; v.Memo.Add("Your text is: [Edit1.Text]"); Page.Objects.Add(v); b := TfrBandView.Create; // create MasterData band b.SetBounds(0, 60, 0, 20); b.BandType := btMasterData; b.Dataset := "frDBDataSet1"; // band"s dataset Page.Objects.Add(b); v := TfrMemoView.Create; // create data field v.SetBounds(20, 60, 200, 16); v.Memo.Add("[Table1."Company"]"); Page.Objects.Add(v); frReport1.Pages.Add; // create second page Page := frReport1.Pages[1]; Page.PageType := ptDialog; Page.Width := 200; Page.Height := 170; Page.Caption := "Test"; v := TfrEditControl.Create; // create editbox v.SetBounds(60, 50, 75, 21); v.Name := "Edit1"; Page.Objects.Add(v); v := TfrButtonControl.Create; // create button v.SetBounds(60, 100, 75, 25); TfrButtonControl(v).Button.Caption := "Test!"; TfrButtonControl(v).Button.ModalResult := mrOk; Page.Objects.Add(v); frReport1.ShowReport;end;

首先打开FastReport软件，在数据目录中右键点击，新建一个数据源；根据向导提示填写完数据库的连接信息。物理数据源新建完成之后如下图所示，有一个之前选择数据表的目录，然后可以通过这些数据表来在page页面里面绑定数据和布局可以在page的startpage事件中自定义数据的连接与过滤条件，这些数据库连接（strConnection）与过滤条件(strSql)可以是从外部作为参数传入进来的。绑定之后一定要记得调用Init()方法，不然表格就没有数据加载！如果在同一个report里面有多个地方使用这个表格（或者是循环使用，比如在for循环里面，只是过滤条件不一样），都是按上面的GetReportDataSource方法来获取表格并初始化，表格里面的数据其实是每次循环使用过滤条件得到结果的并集，就是每次操作的结果都会加入到表格中，那么结果可能就不是我们想要的了！这时我们在获取数据表，并自定义绑定数据连接和过滤条件后，进行初始化之前就需要设置表格的ForceLoadData属性为true;如下图所示：步骤阅读6通过官方的帮助文档可以知道设置了这个属性，在每次初始化时都会清空之前的数据，重新加载数据。如果调用次数多也会影响加载速度，所以默认值是false

安装破解教程1、解压fastreport破解版安装包，然后点击“fr5_2_3_srcent.exe”开始正式的安装2、选择“中文（简体.中国）”然后点击next3、点击“下一步”4、输入序列号【0043443E1D4100050C1226160F351D190D310E2028171E350A22】，然后点击“下一步”5、勾选“是，我接受所有的授权合约”，然后点击下一步6、点击“下一步”7、这里直接默认选择“custom”，然后点击下一步即可8、 选择需要安装的组件，这里自行选择，如果不熟悉，直接默认即可9、选择软件的安装路径，这里建议默认安装即可10、然后直接默认“下一步”即可，直到安装完成

要创建fastreport的主从报表，需要建立两个数据集。一个是主表的数据集，另外一个是一个明细表的数据集；首先，运行报表设计器，创建一个空白报表。为了添加一个明细的数据集，需要调用 "Configure Bands" 窗口。点击 "Configure Bands" 按钮便可实现调用，也可以通过"Report|Configure Bands..." 菜单项来调用"Configure Bands"窗口。选择"Data" 数据集，如图所示，单击鼠标右键以显示上下文菜单,并选择”data“band，接下来，嵌套数据便被添加到所选择的数据集中。按“close”按钮关闭窗口。可能方法不是很全，但是强烈建议题主试试finereport，我用过的报表中最好的了，操作方便又简洁，官网论坛解答也快，最适合中国复杂式报表，希望对题主有帮助。

本文我们将创建一个交叉报表，用于显示员工四年中的工资。要创建交叉报表，我们需要使用到FastReport “DEMOSMAIN” 文件夹中的“crosstest”表。“crosstest”表包含几下几种类型的数据：FastReport,报表,Report,交叉报表在Delphi中创建一个新项目，将“TTable”，“TfrxDBDataSet”和“TfrxReport”组件置于窗体上，并对它们进行如下设置：Table1:DatabaseName = "c:Program FilesFastReport 4DemosMain"TableName = "crosstest.db"DatabaseName属性值必须与你的FastReport安装文件夹路径一致：frxDBDataSet1:DataSet = Table1UserName = "SimpleCross"对于交叉报表的设计，你需要使用 FastReport调色板上的“TfrxCrossObject”组件　。将“TfrxCrossObject”组件组件放置到Delphi窗体中，无需进行任何设置。同时，包含了所有必要功能的“frxCross”部件，将被添加到"uses" 列表。进入报表设计模式。首先，使用 “Report|Data…"菜单链接数据源。从列表中选择“DB cross-tab”对象FastReport,报表,Report,交叉报表：点击设计页面以放置对象：FastReport,报表,Report,交叉报表使用对象编辑器指定所有设置。双击对象上调用它：FastReport,报表,Report,交叉报表编辑器项目中的6项数字分别表示：1、带有数据源的下列列表2、所选定的数据源的字段列表。该列表中的字段可以拖动到 “3,” “4,” and “5” 列表中。3、字段列表（生成（行），表头）4、字段列表（生成列标题）5、字段列表生（成表格单元格）6、表结构预览7、该结构选项可以指定是否需要显示标题和汇总在编辑器中只能通过鼠标进行修改。在本文的演示中，你可以将列表“2” 中的字段拖动到列表“3,” “4,”和 “5”中。接着，点击 “ok”按钮关闭编辑器。

很多人认为FastReport不能实现连续打印，以为只能通过自己写函数调用打印函数来实现连续打印，实际上，FastReport可以轻易的实现连续打印，同时，实现时又是非常简单，你甚至可以在你的程序的打印设置中简单的让客户选择是否连续打印，其它都可以保持不变。function PelsTomm(Pels:Extended):Extended;beginResult:=Pels/Screen.PixelsPerInch*25.4;end;procedure PrintSerial(Frx:TFrxReport;SequencePage:Byte=0);varP:TfrxReportPage;R,R1:Extended;begin{必须是二遍报表，否则无法计算总页数。下面的方法只适用于没有页脚的情况，因为如果有页脚的话FreeSpace就始终为0了。可以用报表脚来代替。因为是连续打印，也可以看作只有一页，报表脚也就相当于页脚了}if not Frx.Engine.DoublePass then Exit;//SequencePage指要连续打印的页面，普通报表就是0P:=TfrxReportPage(Frx.Pages[SequencePage]);R1:=P.TopMargin+P.BottomMargin;while Frx.PrepareReport dobeginif (Frx.Engine.TotalPages<=1) then Break;R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-Frx.Engine.FreeSpace)+R1;P:=TfrxReportPage(Frx.Pages[SequencePage]);P.PaperHeight:=R;end;{必须用上面的循环代码来得到准确的空白区域，不能用通过计算总页数减去各页的页边距的方法来获得空白区域，因为如果碰到一条记录过宽的情况导致换页，就不准确了。}R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-Frx.Engine.FreeSpace)+R1;P:=TfrxReportPage(Frx.Pages[SequencePage]);P.PaperHeight:=R;end;

在单元格里右键，对象格式，里面应该有一项叫做“若重复则抑制显示”。大概是这个意思的复选框，勾选就可以了。还有一个办法是在报表网上虽然也有许多类似的解决方法，不是过于复杂，就是操作起来很麻烦，这是最最简洁通用的一个写法，在报表开始前先计算出需要合并的行的高度数组，在打印前根据这个高度数组设置对应打印对象的高度和显示

方法有很多，具体方法如下：1、首先准备多张报表格式，让用户根据自己的需要选择，将来打印时调用这张报表就可以了，这种方法很简单，容易实现，并且一单有新的用户要求，只要加一张报表格式就解决了。（推荐使用）2、为用户提供报表设计器。fastreport自带的报表设计器（我们设计报表时用的就是），可以为用户设计功能很强的报表，并在发布时带上。3、中和一下上述的两种方法，用户可以选择，也可以自定义报表。以下FastReport动态生成报表例子:procedure TForm1.Button1Click(Sender: TObject);varv: TfrView;b: TfrBandView;Page: TfrPage;beginfrReport1.Pages.Clear;frReport1.Pages.Add; // create pagePage := frReport1.Pages[0];b := TfrBandView.Create; // create Title bandb.SetBounds(0, 20, 0, 20); // position and size in pixelsb.BandType := btReportTitle; // (only Top and Height are significantPage.Objects.Add(b); // for the band)v := TfrMemoView.Create; // create memov.SetBounds(20, 20, 200, 16);v.BandAlign := baWidth;v.Prop["Alignment"] := frtaCenter; // another way to access propertiesv.Prop["Font.Style"] := 2;v.Memo.Add("Your text is: [Edit1.Text]");Page.Objects.Add(v);b := TfrBandView.Create; // create MasterData bandb.SetBounds(0, 60, 0, 20);b.BandType := btMasterData;b.Dataset := "frDBDataSet1"; // band"s datasetPage.Objects.Add(b);v := TfrMemoView.Create; // create data fieldv.SetBounds(20, 60, 200, 16);v.Memo.Add("[Table1."Company"]");Page.Objects.Add(v);frReport1.Pages.Add; // create second pagePage := frReport1.Pages[1];Page.PageType := ptDialog;Page.Width := 200;Page.Height := 170;Page.Caption := "Test";v := TfrEditControl.Create; // create editboxv.SetBounds(60, 50, 75, 21);v.Name := "Edit1";Page.Objects.Add(v);v := TfrButtonControl.Create; // create buttonv.SetBounds(60, 100, 75, 25);TfrButtonControl(v).Button.Caption := "Test!";TfrButtonControl(v).Button.ModalResult := mrOk;Page.Objects.Add(v);frReport1.ShowReport;end;

引用：FastReport.dll,FastReport.Bars.dll,FastReport.Editor.dll设计好**.frx 文件CS代码：DataSet FDataSet = new DataSet(); DataTable table = new DataTable(); table.TableName = "Items"; FDataSet.Tables.Add(table); table.Columns.Add("id", typeof(int)); table.Columns.Add("aaa", typeof(string));table.Rows.Add(0,"ab");table.Rows.Add(1,"abc");FastReport.Report report1 = new FastReport.Report(); try { // load the existing report report1.Load("***.frx"); // register the dataset report1.RegisterData(FDataSet); report1.GetDataSource("Items").Enabled = true; // run the report report1.Show(); } catch (Exception ex) { MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error); } finally { // free resources used by report report1.Dispose(); }

在取报表格式之前，应该先把数据集对象放好，这样才能保证在报表控件在取格式文件后，安置报表对象时，可以拿到数据对象，如果操作顺序搞反了，则报表对象就无法拿到数据对象，在预览数据时，就会产生“没有数据集”的错误了！！vartmpDataSet: T数据集;DataSource: TDataSource;frxDBDataSet: TfrxDBDataset;begintmpDataSet:=T数据集.Create(Self);DataSource:=TDataSource.Create(Self);frxDBDataSet:=TfrxDBDataset.Create(Self);DataSource.DataSet:=tmpDataSet;frxDBDataSet.DataSource:=DataSource;//frxDBDataSet.DataSet:=tmpDataSet; //这条语句与上一条都可用，我也不知道区别在哪frxDBDataSet.UserName:="数据项名称"; //好用在于可以用中文名frxReport1.DataSets.Add(frxDBDataSet);-------------注意：在把报表格式LoadFromFile或LoadFromStream之前，必须完成上面这几条语句的程序

1.打印单条记录（当前记录），frxDataSet 设置RangeBegin和RangeEnd为Current2.打印选中记录，基本思路：按照数据集过滤格式获取选中行的主键组合字串，过滤数据集，尔后打印。代码可依照如下（未测试）uses StrUtils;const filter:string = "id in (%s)";//id相当于主键vari: Integer;tmpStr,sql:string;beginwith dbgrd1 dobeginfor i:=0 to SelectedRows.Count-1 dobegin//假设Grid中第1列为主键所在列tmpStr:=tmpStr+quotedStr(SelectedRows.Items[i][0])+",";end;if AnsiEndsStr(",",tmpStr) thenbegintmpStr=AnsiLeftStr(tmpStr,Length(tmpStr)-1);end;DataSet.filtered:=false;DataSet.filter := Format(filter,[tmpStr]);DataSet.filtered:= True;//打印end;end;

加入一个frxDataSet组件，连接到ADOTable用frxDataSet连接TDataSet派生出来的组件，如TADOQuery,TQuery，TTable等等，然后，就可以在frxReport中设置DataSet属性，选择frxDataSet，最后，就可以在报表的数据选择数据了还要在报表设计界面上的菜单：报表-> 数据下面frxBDDataSet1选上，之后再双击主数据band,选上frxDBDataSet1，才可以显示在程序主界面中拖入一个ADOTable然后设置其ConnectString的属性与指定数据库相连 再在ADOTable的TableName属性中选择你要关联的表 然后再往主界面中拖入一个frxDBDataset，将它的DateSet属性指定为ADOTable 然后进去FastReport界面中 在菜单栏中选[Report-> Data]就会出现让你选择DateSet的对话框 选择打勾，然后在右边的Data中就可以看见表的列了 再将列名拖动就可以。http://jingyan.baidu.com/article/215817f7e38abd1eda14230c.html

　　解决方法：我多个方法都可以实现数据传递到fastreport报表。 　　第一种方法是使用全局对象frVariables (在 FR_Class 单元中被定义): rVariables["My variable"] := 10; 这段代码创建了一个名称为“My variable”，值为 10 的变量。这是传输固定数据到报表的最好方法。 　　第二种方法是使用 TfrReport.OnGetValue 事件. 这可以使用这个方法来传送动态数据、记录等。 procedure TForm1.frReport1GetValue(ParName: String; var ParValue: Variant); begin if ParName = "MyField" then ParValue := Table1MyField.Value; end; 　　最后, 第三种方法是通过编程在数据词典中定义变量（可以参考以前的问题）: with frReport1.Dictionary do begin Variables["MyVariable"] := "CustomerData.Customers."CustNo""; Variables["Another Variable"] := "10"; end;

有效解决方法： 选中该列或单元格——数据——分列——固定宽度——下一步——下一步——列数据格式（日期YND）——完成。 注：此时格式为：YYYY-M-D，要想更改可以到单元格格式自定义中更改为YYYY-MM-DD或其它。

假设有一个职员表，包括字段N，Nname1，Name2和Name3。字段的名称在不同的时候作用是不一样的，一般用于数据库设计人员。也就是说，需要重新指定一个更有意义的名称用于插入到对象中。当然，变量不仅能用于数据库字段名称，也能用于算术表达式。一个例子就是对数据字段、数值、日期或时间求和。更多的使用变量的例子可以从报表演示的程序代码中找到。从操作一个变量列表，你必须从“文件｜数据字典…”菜单中打开一个对话框。变量列表在屏幕的左边。从这个图像可以看出，这个列表是一个两层结构：它由分类和各分类所包含的一个或多个变量组成。分类仅用于对变量逻辑上进行分组，是不能插入到报表中的。有关这个技术的详细说明参考“设计器”部分。但是，FastReport数据字典中的变量描述不能单独工作。如果没有定义相关代码，FastReport会按这样的假设查找：在数据字典中有这样一个变量；它是一个数据字段；它是一个类似于Page#，Date，Time或其它类型的专用变量；它是frVariables列表中的变量；它是一个对象的属性；它是一个frConsts中的常量；同样，如果使用控件的OnGetValue事件，它在所有验证之前调用。如果事件处理返回一个值，变量将被初始化，并且不对它做进一步的验证。这种方法使得报表中的变量赋值方法具有多样性。它为：当生成过程中将一个不可改变的静态记录值赋值给一个记录时，可以使用一个frVariables，就象这样：frVariables["ReportingPeriod"]:="January";frReport1.ShowReport;当生成过程中将一个可改变的记录值赋值给一个记录时，你可以使用数据字典或TfrReport.OnGetValue事件处理，就象这样：procedureTForm1.frReport1GetValue(constParName:String;varParValue:Variant);beginifAnsiCompareText(ParName,"ReportedPeriod")=0thenParValue:=Table1OtchPeriod.Value;end;也可以通过编程为一个变量列表赋值：withfrReport1.DictionarydobeginVariables["Number"]:=1;Variables["Sum"]:="0.2*Table1.Summa";Variables["Date"]:=""""+"January"+"""";end;（在这个例子中需要另外说明的是要定义一个字符常量）。FastReport中指定给数据字典中的变量的字符串，可以作为一个表达式被计算。常常用来使用一个没有在数据字典中定义的变量。必须记住的是如果你从frVariables列表中使用变量或者你通过OnGetValue事件遍历它们，它们不能放进数据字典。

从 delphi XE2 开始，到目前的 XE10，官方的安装程序里都有自带有 FastReport，但 FastReport 的版本是标准版，且不带源码。如果在 delphi 里没有找到，可能是安装时没有选择安装，或者安装的不是官方的完整版本。

你是不是用了savedialog，我的也是同样的问题，版本fr4.68，可能是两者之间的接口做的不好。如果不用savedialog就可以了，我现在将数据直接导入到一个新建的打开的excel中而不保存，用户如果想保存可以直接对打开的excel文件操作，即使用户没有保存，在关闭excel文件时，也会自动提示的。

这个可以免费，网上有很多可以下的资源，你去找找，但因为是开源的报表控件，要写代码的。如果是个人用的话，可以试试FineReport,免费的，上手快。

//调用模板frmcgjhgzcx.frxrprt1.LoadFromFile("C:UserslenovoDesktop原料库模板flxs.fr3");//预览 frxrprt1.PrepareReport(true); frxrprt1.ShowReport;

我一般用的是帆软报表FineReport,它只要输入文本函数就可以了，cnmoney(number,unit)返回人名币大写。unit：单位：“s”“b”“q”“w”“sw”“bw”“qw”“y”“sy”“by”“qy”“wy”分别表示“拾”“佰”“仟”“万”“拾万”“佰万”“仟万”“亿”“拾忆”“佰亿”“仟亿”“万亿”单位可以为空，如果为空，则直接将number转换为人民币大写，否则先将number与单位的进制相乘，然后再将相乘的结果转换为人民币大写。示例CNMONEY(1200)等于壹仟贰佰圆整。CNMONEY(12.5,"w")等于壹拾贰万伍仟圆整。CNMONEY(56.3478,"bw")等于伍仟陆佰叁拾肆万柒仟捌佰圆整。CNMONEY(3.4567,"y")等于叁亿肆仟伍佰陆拾柒万圆整。

我用的一直是FineReport，不过我觉得在存储过程上应该是类似的。下面是以oracle为例的，但原理是相同的。此外，fastreport应该有自己的demo的，你可以去找找。点击模板>模板数据集或者直接在数据集面板中，点击如下图：切换到oracle数据库所在的数据连接，双击所需要添加的存储过程，如下图：注：MySql，DB2，Orcale，SqlServer是支持自动获取获取参数和参数的默认值，而Access，Hsql，Sybase无法自动获取需要手动添加。定义完的存储过程数据集如下图：由于其是模板数据集处，因此该存储过程会存在模板数据集中，如果是在服务器数据集处定义的，则就会显示在服务器数据集所在的tab中。注：FineReport存储过程返回的是数据集，不能返回单个的参数值。3. 支持返回多个结果集若存储过程中返回的是多个结果集，在此也是支持同时返回多个结果集：

一个内置的报表依可以显示在屏幕上，也可以通过打印机打印出来，甚至还可以导出为所支持的报表格式。所有这些都可以在预览窗口中实现：在工具栏上，你可以找到下列按钮：你可以使用下列快捷键控制：Ctrl+P：打印报表Ctrl+F ：搜索文本Arrows：滚动预览 PageUp：上一页PageDown：下一页Page up/down：上/下页Home：返回到首页End：返回到最后一页Esc：关闭预览窗口后面还有很多，我写不下来，不过题主可以用用finereport，比fastreport好用超级多，也没有这么麻烦，操作简便，更适合中国式复杂报表，题主可以试试。

在DELPHI中NEW一个ActiveForm 应用，取名为reportAForm。在form中加入Combox、button、edit、label等与用户交互的控件；为了处理报表，加入FASTREPORT的多个frSpeedButton用于处理报表事件，如设计、预览、打印、翻页、保存等；加入frReport、frDBDataSet、frDesigner等用于在运行时设计报表；如果设计报表时要使用图形、复选框等内容，也要加入相应的控件；加入frPreview、frTextExport、frRTFExport等控件使可以预览报表并可以将报表输出为text、rtf等格式文件；加入ADOQuery（根据实际需要可加入多个）为报表设计提供数据环境，ADOQuery不OPEN，不与数据库连接；加入NMHTTP用于与WEB SERVER联系。

可以使用分栏显示功能，就是在主项数据Band上有一个属性为Columns，这个属性预设是1，即代表1列的意思，像您的例子，这个属性需设置为4，分4列显示；

可以用4.3以上的版本，页面设置中有EndlessHeight属性，设置后就用链式纸，也就是支持即打即停。VAR P:TfrxReportPage;begin P:=TfrxReportPage(FR.Pages[1]); P.EndlessHeight:=TRUE; fr.ShowReport();END；4.0版本以前的，要通过计算行距来动态设置页面高度，来设置即打即停

第一种方法是使用全局对象frVariables (在 FR_Class 单元中被定义): rVariables["My variable"] := 10; 这段代码创建了一个名称为“My variable”，值为 10 的变量。这是传输固定数据到报表的最好方法。第二种方法是使用 TfrReport.OnGetValue 事件. 这可以使用这个方法来传送动态数据、记录等。 procedure TForm1.frReport1GetValue(ParName: String; var ParValue: Variant); begin if ParName = "MyField" then ParValue := Table1MyField.Value; end;

我用的一直都是FineReport，它比较方便，不过既然楼主问的是fastreport，这里我就不谈FineReport了。要创建fastreport的主从报表，需要建立两个数据集。一个是主表的数据集，另外一个是一个明细表的数据集；根据下面的截图来创建fastreport报表。首先，运行报表设计器，创建一个空白报表。为了添加一个明细的数据集，需要调用 "Configure Bands" 窗口。点击 "Configure Bands" 按钮便可实现调用，如图所示，也可以通过"Report|Configure Bands..." 菜单项来调用"Configure Bands"窗口。配置窗口中展示了数据集结构：选择"Data" 数据集，如图所示，单击鼠标右键以显示上下文菜单,并选择”data“band，接下来，嵌套数据便被添加到所选择的数据集中。按“close”按钮关闭窗口。你会发现报表模版便成下面的样子；将band与相应的数据源连接，并将数据列置于bands上。我们将使用两个数据源：分类和产品。运行报表通过这种方法，你可以创建一个带有无线嵌套数据的主从报表类型。

我用的一直都是FineReport，它比较方便，不过既然楼主问的是fastreport，这里我就不谈FineReport了。要创建fastreport的主从报表，需要建立两个数据集。一个是主表的数据集，另外一个是一个明细表的数据集；根据下面的截图来创建fastreport报表。首先，运行报表设计器，创建一个空白报表。为了添加一个明细的数据集，需要调用 "Configure Bands" 窗口。点击 "Configure Bands" 按钮便可实现调用，如图所示，也可以通过"Report|Configure Bands..." 菜单项来调用"Configure Bands"窗口。配置窗口中展示了数据集结构：选择"Data" 数据集，如图所示，单击鼠标右键以显示上下文菜单,并选择”data“band，接下来，嵌套数据便被添加到所选择的数据集中。按“close”按钮关闭窗口。你会发现报表模版便成下面的样子；将band与相应的数据源连接，并将数据列置于bands上。我们将使用两个数据源：分类和产品。运行报表通过这种方法，你可以创建一个带有无线嵌套数据的主从报表类型。

我用的一直都是FineReport，它比较方便，不过既然楼主问的是fastreport，这里我就不谈FineReport了。要创建fastreport的主从报表，需要建立两个数据集。一个是主表的数据集，另外一个是一个明细表的数据集；根据下面的截图来创建fastreport报表。首先，运行报表设计器，创建一个空白报表。为了添加一个明细的数据集，需要调用 "Configure Bands" 窗口。点击 "Configure Bands" 按钮便可实现调用，如图所示，也可以通过"Report|Configure Bands..." 菜单项来调用"Configure Bands"窗口。配置窗口中展示了数据集结构：选择"Data" 数据集，如图所示，单击鼠标右键以显示上下文菜单,并选择”data“band，接下来，嵌套数据便被添加到所选择的数据集中。按“close”按钮关闭窗口。你会发现报表模版便成下面的样子；将band与相应的数据源连接，并将数据列置于bands上。我们将使用两个数据源：分类和产品。运行报表通过这种方法，你可以创建一个带有无线嵌套数据的主从报表类型。

很多人认为FastReport不能实现连续打印，以为只能通过自己写函数调用打印函数来实现连续打印，实际上，FastReport可以轻易的实现连续打印，同时，实现时又是非常简单，你甚至可以在你的程序的打印设置中简单的让客户选择是否连续打印，其它都可以保持不变。 function PelsTomm(Pels:Extended):Extended; begin Result:=Pels/Screen.PixelsPerInch*25.4; end; procedure PrintSerial(Frx:TFrxReport;SequencePage:Byte=0); var P:TfrxReportPage; R,R1:Extended; begin {必须是二遍报表，否则无法计算总页数。下面的方法只适用于没有页脚的情况，因为如果有页脚的话FreeSpace就始终为0了。可以用报表脚来代替。因为是连续打印，也可以看作只有一页，报表脚也就相当于页脚了} if not Frx.Engine.DoublePass then Exit; //SequencePage指要连续打印的页面，普通报表就是0 P:=TfrxReportPage(Frx.Pages[SequencePage]); R1:=P.TopMargin+P.BottomMargin; while Frx.PrepareReport do begin if (Frx.Engine.TotalPages<=1) then Break; R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight- Frx.Engine.FreeSpace)+R1; P:=TfrxReportPage(Frx.Pages[SequencePage]); P.PaperHeight:=R; end; {必须用上面的循环代码来得到准确的空白区域，不能用通过计算总页数减去各页的页边距的方法来获得空白区域，因为如果碰到一条记录过宽的情况导致换页，就不准确了。} R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight- Frx.Engine.FreeSpace)+R1; P:=TfrxReportPage(Frx.Pages[SequencePage]); P.PaperHeight:=R; end;

实际上，FastReport可以轻易的实现连续打印，同时，实现时又是非常简单，你甚至可以在你的程序的打印设置中简单的让客户选择是否连续打印，其它都可以保持不变。 function PelsTomm(Pels:Extended):Extended; begin Result:=Pels/Screen.PixelsPerInch*25.4; end; procedure PrintSerial(Frx:TFrxReport;SequencePage:Byte=0); var P:TfrxReportPage; R,R1:Extended; begin {必须是二遍报表，否则无法计算总页数。下面的方法只适用于没有页脚的情况，因为如果有页脚的话FreeSpace就始终为0了。可以用报表脚来代替。因为是连续打印，也可以看作只有一页，报表脚也就相当于页脚了} if not Frx.Engine.DoublePass then Exit; //SequencePage指要连续打印的页面，普通报表就是0 P:=TfrxReportPage(Frx.Pages[SequencePage]); R1:=P.TopMargin+P.BottomMargin; while Frx.PrepareReport do begin if (Frx.Engine.TotalPages<=1) then Break; R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight- Frx.Engine.FreeSpace)+R1; P:=TfrxReportPage(Frx.Pages[SequencePage]); P.PaperHeight:=R; end; {必须用上面的循环代码来得到准确的空白区域，不能用通过计算总页数减去各页的页边距的方法来获得空白区域，因为如果碰到一条记录过宽的情况导致换页，就不准确了。} R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight- Frx.Engine.FreeSpace)+R1; P:=TfrxReportPage(Frx.Pages[SequencePage]); P.PaperHeight:=R; end;

我一直用的FineReport报表处理软件，不怎么用FastReport，而且我强烈建议楼主试试FineReport，做交叉报表是相当好的。 如何利用FastReport创建交叉报表的方法如下，百度搜的： 要创建交叉报表，我们需要使用到FastReport “DEMOSMAIN” 文件夹中的“crosstest”表。“crosstest”表包含几下几种类型的数据： 在Delphi中创建一个新项目，将“TTable”，“TfrxDBDataSet”和“TfrxReport”组件置于窗体上，并对它们进行如下设置： Table1: DatabaseName = "c:Program FilesFastReport 4DemosMain" TableName = "crosstest.db" DatabaseName属性值必须与你的FastReport安装文件夹路径一致： frxDBDataSet1: DataSet = Table1 UserName = "SimpleCross" 对于交叉报表的设计，你需要使用 FastReport调色板上的“TfrxCrossObject”组件 。将“TfrxCrossObject”组件组件放置到Delphi窗体中，无需进行任何设置。同时，包含了所有必要功能的“frxCross”部件，将被添加到"uses" 列表。 进入报表设计模式。首先，使用 “ReportData…"菜单链接数据源。从列表中选择“DB cross-tab”对象 ：点击设计页面以放置对象： 使用对象编辑器指定所有设置。双击对象上调用它： 编辑器项目中的6项数字分别表示： 1、带有数据源的下列列表 2、所选定的数据源的字段列表。该列表中的字段可以拖动到 “3,”“4,” and “5” 列表中。 3、字段列表（生成（行），表头） 4、字段列表（生成列标题） 5、字段列表生（成表格单元格） 6、表结构预览 7、该结构选项可以指定是否需要显示标题和汇总 在编辑器中只能通过鼠标进行修改。在本文的演示中，你可以将列表“2” 中的字段拖动到列表“3,”“4,”和“5”中。接着，点击 “ok”按钮关闭编辑器。对象结构显示如下： 预览报表时，会显示为以下效果：

我用的一直都是FineReport，它比较方便，不过既然楼主问的是fastreport，这里我就不谈FineReport了。要创建fastreport的主从报表，需要建立两个数据集。一个是主表的数据集，另外一个是一个明细表的数据集；根据下面的截图来创建fastreport报表。首先，运行报表设计器，创建一个空白报表。为了添加一个明细的数据集，需要调用 "Configure Bands" 窗口。点击 "Configure Bands" 按钮便可实现调用，如图所示，也可以通过"Report|Configure Bands..." 菜单项来调用"Configure Bands"窗口。配置窗口中展示了数据集结构：选择"Data" 数据集，如图所示，单击鼠标右键以显示上下文菜单,并选择”data“band，接下来，嵌套数据便被添加到所选择的数据集中。按“close”按钮关闭窗口。你会发现报表模版便成下面的样子；将band与相应的数据源连接，并将数据列置于bands上。我们将使用两个数据源：分类和产品。运行报表通过这种方法，你可以创建一个带有无线嵌套数据的主从报表类型。

我用的一直都是FineReport，它比较方便，不过既然楼主问的是fastreport，这里我就不谈FineReport了。要创建fastreport的主从报表，需要建立两个数据集。一个是主表的数据集，另外一个是一个明细表的数据集；根据下面的截图来创建fastreport报表。首先，运行报表设计器，创建一个空白报表。为了添加一个明细的数据集，需要调用 "Configure Bands" 窗口。点击 "Configure Bands" 按钮便可实现调用，如图所示，也可以通过"Report|Configure Bands..." 菜单项来调用"Configure Bands"窗口。配置窗口中展示了数据集结构：选择"Data" 数据集，如图所示，单击鼠标右键以显示上下文菜单,并选择”data“band，接下来，嵌套数据便被添加到所选择的数据集中。按“close”按钮关闭窗口。你会发现报表模版便成下面的样子；将band与相应的数据源连接，并将数据列置于bands上。我们将使用两个数据源：分类和产品。运行报表通过这种方法，你可以创建一个带有无线嵌套数据的主从报表类型。

在报表里面，设置memo的highlight，条件里面输入ADOQuery1."jhy"="就行了

在取报表格式之前，应该先把数据集对象放好，这样才能保证在报表控件在取格式文件后，安置报表对象时，可以拿到数据对象，如果操作顺序搞反了，则报表对象就无法拿到数据对象，在预览数据时，就会产生“没有数据集”的错误了！！var tmpDataSet: T数据集; DataSource: TDataSource; frxDBDataSet: TfrxDBDataset;begin tmpDataSet:=T数据集.Create(Self); DataSource:=TDataSource.Create(Self); frxDBDataSet:=TfrxDBDataset.Create(Self); DataSource.DataSet:=tmpDataSet; frxDBDataSet.DataSource:=DataSource; //frxDBDataSet.DataSet:=tmpDataSet; //这条语句与上一条都可用，我也不知道区别在哪 frxDBDataSet.UserName:="数据项名称"; //好用在于可以用中文名 frxReport1.DataSets.Add(frxDBDataSet);如果是FineReport，可通过添加参数绑定数据集来动态添加数据。

加入一个frxDataSet组件，连接到ADOTable用frxDataSet连接TDataSet派生出来的组件，如TADOQuery,TQuery，TTable等等，然后，就可以在frxReport中设置DataSet属性，选择frxDataSet，最后，就可以在报表的数据选择数据了还要在报表设计界面上的菜单：报表-> 数据下面frxBDDataSet1选上，之后再双击主数据band,选上frxDBDataSet1，才可以显示在程序主界面中拖入一个ADOTable然后设置其ConnectString的属性与指定数据库相连 再在ADOTable的TableName属性中选择你要关联的表 然后再往主界面中拖入一个frxDBDataset，将它的DateSet属性指定为ADOTable 然后进去FastReport界面中 在菜单栏中选[Report-> Data]就会出现让你选择DateSet的对话框 选择打勾，然后在右边的Data中就可以看见表的列了 再将列名拖动就可以。

引用：FastReport.dll,FastReport.Bars.dll,FastReport.Editor.dll设计好**.frx 文件CS代码：DataSet FDataSet = new DataSet(); DataTable table = new DataTable(); table.TableName = "Items"; FDataSet.Tables.Add(table); table.Columns.Add("id", typeof(int)); table.Columns.Add("aaa", typeof(string));table.Rows.Add(0,"ab");table.Rows.Add(1,"abc");FastReport.Report report1 = new FastReport.Report(); try { // load the existing report report1.Load("***.frx"); // register the dataset report1.RegisterData(FDataSet); report1.GetDataSource("Items").Enabled = true; // run the report report1.Show(); } catch (Exception ex) { MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error); } finally { // free resources used by report report1.Dispose(); }

安装破解教程1、解压fastreport破解版安装包，然后点击“fr5_2_3_srcent.exe”开始正式的安装2、选择“中文（简体.中国）”然后点击next3、点击“下一步”4、输入序列号【0043443E1D4100050C1226160F351D190D310E2028171E350A22】，然后点击“下一步”5、勾选“是，我接受所有的授权合约”，然后点击下一步6、点击“下一步”7、这里直接默认选择“custom”，然后点击下一步即可8、 选择需要安装的组件，这里自行选择，如果不熟悉，直接默认即可9、选择软件的安装路径，这里建议默认安装即可10、然后直接默认“下一步”即可，直到安装完成

Dim WithEvents frx As FastReport.TfrxReportPrivate Sub Command1_Click()Set frx = CreateObject("FastReport.TfrxReport")frx.EngineOptions.SilentMode = simMessageBoxesfrx.LoadReportFromFile ("C:Documents and SettingsAdministrator桌面123.fr3")

FastReport 在 delphi XE8 中，属于系统内置的有个标准版。如果想要重新安装个其它版本的 FastReport ，需要先把原版本在 delphi 中的文件及设置卸载清除干净。从截图看，问题的原因在于重新编译安装的 FastReport ，其路径与 delphi 中的路径不匹配造成的。建议：在Delphi的IDE中，选择“tools|Options|library-win32|Directories”菜单，检查并正确设置当前的 FastReport 的路径。