组态王报表解析
组态王报表演示说明
报表演示说明1、本演示分为日报、月报、年报2、日报的生成：对于日报可以每小时输入一个数据，然后进行统计后每天生成一个报表日报生成的命令语言见事件命令语言的条件为：$分==0 && $秒==0，消失时注意：a、报表函数命令执行时报表控件所在的画面必须打开，因此对于画面不多的情况下可以在工程运行时将后台处理画面打开并隐含起来，同时所有其它的画面属性都应为覆盖式。
如果画面较多无法全部将画面属性设为覆盖式则可以在报表命令语言执行前执行打开画面的命令b、在新的一天开始时需要使用新的报表文件，因此需要在调用前需要判断当天的报表文件是否已经创建，如果没有创建则需要进行创建c、对于日报的统计主要针对每天持续运行的情况，对于不能保证持续运行的现场可以参照月报的统计方式b、报表的查询在日报查询页，可以对报表文件进行读取、删除等操作{string ()+"日报\"+ StrFromReal( \\本站点\$年, 0,"f" )+"y"+StrFromReal(\\本站点\$月, 0, "f" )+"m"+StrFromReal(\\本站点\$日, 0, "f" )+".rtl";//自定义变量long return01=InfoFile( , 1, \\本站点\$分 );//判断日报目录下是否已经有当天的报表文件了if (return01==0){string ()+"报表\日报.rtl";ReportLoad("Report5",);()+"日报\"+StrFromReal( \\本站点\$年, 0, "f" )+"y"+StrFromReal( $月, 0, "f" )+"m"+StrFromReal( $日, 0, "f" )+".rtl";ReportSaveAs("Report5",);}//如果没有报表文件则从报表目录下调取模板创建报表文件ReportLoad("Report5",);ReportSetCellString("report5", 3,10, \\本站点\$日期);long hang=\\本站点\$时+6;string timestr=time(\\本站点\$时,0,0);ReportSetCellString("report5", hang,1, timestr);ReportSetCellValue("report5", hang,2,\\本站点\颗粒物); ReportSetCellValue("report5", hang,3,\\本站点\颗粒物折算); ReportSetCellValue("report5", hang,4, \\本站点\SO2); ReportSetCellValue("report5", hang,5, \\本站点\SO2折算); ReportSetCellValue("report5", hang,6, \\本站点\NO2);ReportSetCellValue("report5", hang,7, \\本站点\NO2折算); ReportSetCellValue("report5", hang,8, \\本站点\流量); ReportSetCellValue("report5", hang,9, \\本站点\O2); ReportSetCellValue("report5", hang,10, \\本站点\温度); ReportSetCellValue("report5", hang,11, \\本站点\水分); ReportSaveAs("Report5",);}3、月报的生成月报中需要每天的统计数据，该数据为每天的平均值，如果需要其它的统计数据也可照此方法进行处理。
用组态王报表
用组态王报表实现显示设备启动、停止时间和运行时长的方法在对设备的状态进行监控中，往往要取得一些参数来记录和分析设备的运行状况。
这其中就包括设备的启动时间、停止时间和运行的时长。
当然，组态软件不会有这样的功能，让我们轻易实现。
不过，通过组态软件的报表功能，再通过二次开发，写一些脚本语言。
实现起来倒也不难。
以下，以组态王为例，是对操作过程的描述，希望能够对需要的人有一些帮助。
总体思路：以一个项目为例。
在这个工程中，有21台设备的运行状态需要记录，他们的运行状态依次记录在报表中。
报表中的每一行都表示，此设备的一个运行周期。
由于设备状态在报表中依次排列，因此需要相应的变量来保存该设备状态所在的行数。
这样，当停止该设备时，才能将“停止时间”和“运行时长”填充到正确的位置。
这样，就需要建立21个内存整形变量。
由于报表中的记录依次排列，因此还需要一个变量来保存报表中最后一条记录的行数，这样才能顺序填充记录。
1、新建报表，并命名为“报表1”。
2、创建内存整形变量。
21个内存变量分别保存21个设备状态所在的行数。
1个内存变量保存报表中最后一条记录的行数。
3、编写自定义函数，好处是减少代码量，修改方便。
脚本内容具体如下//"var"是变量的名称，"name"是要显示在报表中的字符串，"varRow"是保存记录的行数//用年月日，时分秒，系统变量来组合形成日期。
//不用日期变量，因为其格式长度不确定，在后来的分解中会很麻烦。
string strY=StrFromInt（\本站点$年, 10 ）;string strM=StrFromInt（\本站点$月, 10 ）;string strD=StrFromInt（\本站点$日, 10 ）;string strH=StrFromInt（\本站点$时, 10 ）;string strMi=StrFromInt（\本站点$分, 10 ）;string strS=StrFromInt（\本站点$秒, 10 ）;//确定日期的格式，并使长度和位置固定if（\本站点$月<10） strM="0"+strM;if（\本站点$日<10） strD="0"+strD;if（\本站点$时<10） strH="0"+strH;if（\本站点$分<10） strMi="0"+strMi;if（\本站点$秒<10） strS="0"+strS;//组合，定义格式string str=strY+"-"+strM+"-"+strD+" "+strH+":"+strMi+":"+strS;//启动设备时，将“序号”、“名称”、“启动时间”填充到报表中if（var==1）{long num=报表当前行-1;string id=StrFromInt（num, 10 ）;ReportSetCellString（"报表1", 报表当前行, 1, id）;//序号ReportSetCellString（"报表1", 报表当前行, 2, name）;//名称ReportSetCellString（"报表1", 报表当前行, 3, str）;//开始时间varRow=报表当前行;//所在行=报表当前行报表当前行=报表当前行+1;}//停止设备时else{string startStr=ReportGetCellString（"报表1", varRow, 3）;//从报表中取得开始时间//开始时间转换秒 2011-05-06 12:23:34string midY=StrMid（startStr, 1, 4 ）;string midM=StrMid（startStr, 6, 2 ）;string midD=StrMid（startStr, 9, 2 ）;string midH=StrMid（startStr, 12, 2 ）;string midMi=StrMid（startStr, 15, 2 ）;string midS=StrMid（startStr, 18, 2 ）;long lY=StrToInt（midY）;long lM=StrToInt（midM）;long lD=StrToInt（midD）;long lH=StrToInt（midH）;long lMi=StrToInt（midMi）;long lS=StrToInt（midS）;long startTime= HTConvertTime（lY,lM,lD,lH,lMi,lS）;long endTime= HTConvertTime（\本站点$年,\本站点$月,\本站点$日,\本站点$时,\本站点$分,\本站点$秒）;//结束时间转换秒//计算时间差long timeLength=endTime-startTime;//单位秒//秒转换为小时//timeLength=timeLength/3600;string endStr=StrFromInt（timeLength, 10 ）+"秒";//将“停止时间”和“运行时长”填充到报表中ReportSetCellString（"报表1", varRow, 4, str）;//结束时间ReportSetCellString（"报表1", varRow, 5, endStr）;//时间长度}4、建立设备启动或停止的运行事件命令。
组态王软件详细教程第七讲报表系统
组态王软件详细教程第七讲报表系统(总9页)-CAL-FENGHAI.-(YICAI)-Company One1-CAL-本页仅作为文档封面，使用请直接删除第七讲报表系统第一节组态王内嵌数据报表数据报表的用途数据报表是反应生产过程中的数据、状态等，并对数据进行记录的一种重要形式。
是生产过程必不可少的一个部分。
它即能反应系统实时的生产情况，也能对长期的生产过程进行统计、分析，使管理人员能够实时掌握和分析生产情况。
组态王提供内嵌式报表系统，工程人员可以任意设置报表格式，对报表进行组态。
组态王为工程人员提供了丰富的报表函数，实现各种运算、数据转换、统计分析、报表打印等。
即可以制作实时报表，也可以制作历史报表。
另外，工程人员还可以制作各种报表模板，实现多次使用，以免重复工作。
制作实时数据报表在组态王工具箱内选择“报表窗口”工具，在报表画面上绘制报表。
如下图所示：双击报表窗口的灰色部分（表格单元格区域外没有单元格的部分），弹出“报表设计”对话框，对话框定义如下图所示：在“报表控件名”对话框中输入报表控件名称：实时数据报表，这个控件名会在报表函数中引用。
在行数对话框中输入所要制作的报表的大致行数15本讲介绍报表系统的创建和格式设置介绍报表函数介绍报表系统的组态介绍报表模板在列数对话框中输入所要制作的报表的大致列数6单击对话框的“确认”按钮。
则组态王报表画面如下图所示：设置表头格式设计表头：选中“b1”到“e2”的单元格区域，从报表工具箱上单击“合并单元格”按钮，在报表工具箱的编辑框里输入文本“实时数据报表”，单击“输入”按钮；或双击合并的单元格，使输入光标位于该单元格中，然后输入上述文本。
单击报表工具箱中的“设置单元格格式”按钮，设置单元格格式如下：数字—常规；字体—隶书、规则、一号、红色；对齐方式：水平—居中，垂直—居中；图案—设置单元格底纹颜色为灰色。
如下图所示。
设计报表时间在单元格“d3”中显示当前日期，双击该单元格，然后输入函数“=Date（$年，$月，$日）”。
组态王7.5SP1版本第7章报表系统
第八讲报表系统第一节概述数据报表的用途数据报表是反应生产过程中的过程数据、运行状态等，并对数据进行记录、统计的一种重要工具，是生产过程必不可少的一个重要环节。
它既能反应系统实时的生产情况又能对长期的生产过程数据进行统计、分析，使管理人员能够掌握和分析生产过程情况。
组态王提供内嵌式报表系统，工程人员可以任意设置报表格式，对报表进行组态。
组态王为工程人员提供了丰富的报表函数，实现各种运算、数据转换、统计分析、报表打印等。
既可以制作实时报表又可以制作历史报表。
另外，工程人员还可以制作各种报表模板，实现多次使用，以免重复工作。
组态王7.5 SP1的报表向导工具可以以组态王的历史库或KingHistorian为数据源，快速建立所需的班报表、日报表、周报表、月报表、季报表和年报表。
此外，还可以实现值的行列统计功能。
大大减少了工程人员制作报表时的命令语言的编写。
第二节实时数据报表创建实时数据报表实时数据报表创建过程如下：1、新建一画面，名称为：实时数据报表画面。
2、选择工具箱中的工具，在画面上输入文字：实时数据报表。
3、选择工具箱中的工具，在画面上绘制一实时数据报表窗口，如图8-1所示。
图8-1单击报表窗口，“报表工具箱”会自动显示出来。
双击窗口的灰色部分，弹出“报表设计”对话框，如图8-2所示。
图8-2对话框设置如下：报表控件名：Report1行数：6列数：104、输入静态文字：选中A1到J1的单元格区域，执行“报表工具箱”中的“合并单元格”命令并在合并完成的单元格中输入：实时报表演示。
利用同样方法输入其它静态文字，如图8-3所示。
图8-35、插入动态变量：在B2单元格中输入：=\\local\$Date。
（变量的输入可以利用“报表工具箱”中的“插入变量”按钮实现）利用同样方法输入其它动态变量，如图8-4所示。
图8-4注：如果变量名前没有添加“=”符号的话此变量被当作静态文字来处理。
6、单击“文件”菜单中的“全部存”命令，保存您所作的设置。
1.1 组态王的报表中如何实现报表数据的统计(如求和、求平均、检索最大最小值)？
1.1组态王的报表中如何实现报表数据的统计（如求和、求平均、检索最大最小值）？针对报表中的数据统计需求功能，组态王提供了sum()，average()，max()，min()函数来实现相应的需求。
如：在报表的某一单元格写入＝sum（'a1:a100'）此功能为对从A1到A100的连续的单元格进行求和，其他的函数的应用，请参照组态王的函数使用手册。
1.2在组态王画面上如何得到指定变量在指定时间内的最大值、最小值和平均值？组态王6.53 2008年版本新增加了求历史库中某段时间的最大值、最小值、平均值的功能，使用此函数可以在组态王画面上得到指定变量在一段时间内的最大值、最小值和平均值。
函数使用方法如下：RealResult=GetHistMaxData(TagName,StartTime,EndTime); //获取某段时间的最大值RealResult=GetHistMinData(TagName,StartTime,EndTime); //获取某段时间的最小值RealResult=GetHistAveData(TagName,StartTime,EndTime); //获取某段时间的平均值参数描述：TagName：所要查询的变量的名称，类型为字符串型，即带引号。
StartTime：数据查询的开始时间，该时间是通过组态王HTConvertTime函数转化的以1969年12月31日16：00：00为基准的长整型数，所以用户在使用本函数之前，应先将查询起始时间转换为长整型数值。
EndTime:数据查询的结束时间，类型同StartTime。
返回值：返回一个实数值。
调用方法如下：long time1;long time2;time1=HTConvertTime(2008,10,17,17,07,35);time2=HTConvertTime(2008,10,17,17,09,35);\\本站点\最大值=GetHistMaxData("\\本站点\仿真变量",time1,time2);\\本站点\最小值=GetHistMinData("\\本站点\仿真变量",time1,time2);\\本站点\平均值=GetHistAveData("\\本站点\仿真变量",time1,time2);需要更新文件实现。
组态王报表()解析
ReportSetCellValue("一分钟数据报表", row, 4, \\本站点\成品油液位1);
参数说明： ReportName：报表名称； StartRow：要设置数值的报表的开始行号； StartCol：要设置数值的报表的开始列号； StartRow：要设置数值的报表的开始行号； StartCol：要设置数值的报表的开始列号； Value：要设置的文本 。
二、1 分钟数据查询报表
定时自动查询历史数据，并获取1 分钟数据的平均值。 设置过程如下： 在画面上输入文字：1 分钟数据查询报表。 绘制一报表窗口（33 行5 列），控件名称为：一分钟查询， 并设计表格如下，
在画面中添加一按钮，按钮文本为：报表查询。 在按钮的弹起事件中输入如下命令语言：
string filename1; string filename2; filename1=InfoAppDir()+"\实时数据文件夹\"+\\本站点\报表查 询变量; ReportLoad("Report2",filename1); filename2=InfoAppDir()+"\实时数据文件夹\*.rtl"; listClear("List1"); ListLoadFileName( "List1", filename2); 上述命令语言的作用是将下拉式组合框中选中的报表文件的数 据显示在Report2 报表窗口中，其中\\本站点\报表查询变量保 存了下拉式组合框中选中的报表文件名。
组态王报表功能实现方法
一种简单的组态王报表功能实现方法2010年04月24日星期六 15:18前段时间用组态王6.53做了一个小的画面组态，其中用到了KVADODBGrid控件来做报表，现总结如下。
一、准备工作第一步：在组态王工程管理器中新建一个项目，项目路径为D：\实验项目。
第二步：新建一个ACCESS数据库1、在“D：\实验项目”路径下新建一个 Microsoft Office Access 应用程序并命名为mydatabase.mdb；2、打开“控制面板\管理工具\ODBC数据源管理器”选择“系统DS N”选项；3、点击“添加”按钮创建新数据源，选择“Microsoft Access Driver(*.mdb)”；4、在数据源名处填下“mydata”，并选择数据库路径为“D：\实验项目\mydatabase.mdb”。
第三步：创建表格模板点击工程浏览器左侧的“SQL访问管理器”下的“表格模板”，新建一个表格并命名为Table。
在Table中添加所需记录的变量及日期参数，其中“日期”为定长字符串型，字符长度为10；其它诸如年、月、日、时、分则为浮点型，字符长度为1。
第四步：创建记录体点击工程浏览器左侧的“SQL访问管理器”下的“记录体”，新建一个表格并命名为Record，在Record中添加所需记录的变量及日期参数。
记录体用来定义Access数据表格字段与组态王变量之间的对应关系。
二、连接数据库第一步：在工程浏览器左侧的“数据库”下的“数据字典”中定义一个内存整型变量，并命名为ConnectID。
第二步：创立组态王与mydata数据源的连接，并以“表格模板”Table的格式在数据库中建立名为“TheDate”的表格，命令如下：SQLConnect( ConnectID, "dsn=mydata;uid=;pwd=");SQLCreateTable(ConnectID, "TheDate", "Table" );将上面两条命令填入“工程浏览器\命令语言\应用程序命令语言”下的“启动时”选项中。
组态王的年月报表
组态王的年⽉报表（1）建⽴报表的步骤将《实时数据》插⼊到《⽇报表后台数据的累计量》插⼊到《⽉报表后台累计量》插⼊到《年报表后台》//........................................................................................................................................................................................................................................................................................................................................... //每⼩时将repot7的实时数据插⼊到report 6中，long hang;hang= \\本站点\$时+3;//定位long Value;Value=ReportGetCellValue("Report7", 4, 2);//获取指定报表单元格的数值ReportSetCellValue("Report6", hang, 2, Value);//将指定报表的指定单元格设定为指定值Value=ReportGetCellValue("Report7", 4, 3);ReportSetCellValue("Report6", hang, 3, Value);Value=ReportGetCellValue("Report7", 4, 4);ReportSetCellValue("Report6", hang, 4, Value);Value=ReportGetCellValue("Report7", 4, 5);ReportSetCellValue("Report6", hang, 5, Value);Value=ReportGetCellValue("Report7", 4, 6);ReportSetCellValue("Report6", hang, 6, Value);Value=ReportGetCellValue("Report7", 4, 7);ReportSetCellValue("Report6", hang, 7, Value);Value=ReportGetCellValue("Report7", 4, 8);ReportSetCellValue("Report6", hang, 8, Value);Value=ReportGetCellValue("Report7", 4, 9);ReportSetCellValue("Report6", hang, 9, Value);Value=ReportGetCellValue("Report7", 4, 10);ReportSetCellValue("Report6", hang, 10, Value);Value=ReportGetCellValue("Report7", 4, 11);ReportSetCellValue("Report6", hang, 11, Value);Value=ReportGetCellValue("Report7", 4, 12);ReportSetCellValue("Report6", hang, 12, Value);Value=ReportGetCellValue("Report7", 4, 13);ReportSetCellValue("Report6", hang, 13, Value);Value=ReportGetCellValue("Report7", 4, 14);ReportSetCellValue("Report6", hang, 14, Value);Value=ReportGetCellValue("Report7", 4, 15);ReportSetCellValue("Report6", hang, 15, Value);//将实时报表report 7中的统计数据输⼊到⽇报表后台中//填写时间string temp;long StartTime;long y;StartTime=cyl_HTConvertTime(\\本站点\$年,\\本站点\$⽉,\\本站点\$⽇,0,0,0);//获取选着时间的长整形单位y=StartTime+\\本站点\$时*3600;temp=StrFromTime( y, 2 );ReportSetCellString("Report6", hang, 1, temp);ReportSetCellString("Report6", 28, 1, "当天累积");//填充ReportSetCellString("Report6", 29, 1, "备注");//填充//............................................................................................................................................................................................................................................................................................................................................ ReportSetCellString2("Report6", 4, 1, 27, 8, " "); //清空单元格//............................................................................................................................................................................................................................................................................................................................................(1)查询⽉报string FileName;FileName=InfoAppDir()+"⽉报\"+\\本站点\报表名;ReportLoad("⽉报",FileName);//............................................................................................................................................................................................................................................................................................................................................(2)删除⽉报string FileName;FileName=InfoAppDir()+"⽉报\"+\\本站点\报表名;FileDelete( Filename );string FileName1;FileName1=InfoAppDir()+"⽉报\*.rtl";listClear("⽉报查询");ListLoadFileName( "⽉报查询", FileName1 );//............................................................................................................................................................................................................................................................................................................................................(3)刷新⽉报string FileName;FileName=InfoAppDir()+"⽉报\"+"*.rtl";listClear("⽉报查询");ListLoadFileName( "⽉报查询", FileName );//............................................................................................................................................................................................................................................................................................................................................//每天定时将⽇报后台reprot 6中的累积量插⼊到⽉报表reprot5后台中string reportname2=StrFromReal( \\本站点\$年, 0, "f" )+StrFromReal( \\本站点\$⽉, 0, "f")+".rtl";//把年⽉转化为字符串⽤来命名//====================string FileName;//⾃定义变量FileName=InfoAppDir()+"⽉报\"+reportname2;long return02=InfoFile( Filename, 1, \\本站点\$分 );//查找⽂件是否存在,找不到返回0 ShowPicture("⽉报后台");//HidePicture("⽉报后台");//判断⽉报⽬录下是否已经有当⽉的报表⽂件了if (return02==0)//当前⽬录下没有相应⽉报表报表{FileName=InfoAppDir()+"报表\⽉报.rtl";ReportLoad("Roport5",FileName);//把filename名称⽂件中数据填⼊到report中FileName=InfoAppDir()+"⽉报\"+ reportname2;Reportsaveas("Roport5",FileName);//报存⽉报后台//\\本站点\⽇计数=0;}//如果当⽉的⽉报⽂件还没有产⽣则调⼊⽉报.rtl⽂件并按规定格式保存报表⽂件FileName=InfoAppDir()+"⽉报\"+StrFromReal( \\本站点\$年, 0, "f" )+StrFromReal(\\本站点\$⽉, 0, "f" )+".rtl";ReportLoad("Report5",FileName);//读取指定路径下的报表到当前控件报表long hang;hang= \\本站点\$⽇+3;//定位//\\本站点\⽇计数=\\本站点\⽇计数+1;string str;long Value;long Value1;long Value2;str=ReportGetCellString("Report6", 2, 5);//获取指定报表单元格的⽂本ReportSetCellString("Report5", hang, 1, str);//将指定报表单元格设定为指定字符串//以上为在⽉报第⼀列添加⽇期Value=ReportGetCellValue("Report6", 28, 2);//获取指定报表单元格的数值ReportSetCellValue("Report5", hang, 2, Value);//将指定报表的指定单元格设定为指定值Value=ReportGetCellValue("Report6", 28, 3);ReportSetCellValue("Report5", hang, 3, Value);Value=ReportGetCellValue("Report6", 28, 4);ReportSetCellValue("Report5", hang, 4, Value);Value=ReportGetCellValue("Report6", 28, 5);ReportSetCellValue("Report5", hang, 5, Value);Value=ReportGetCellValue("Report6", 28, 6);ReportSetCellValue("Report5", hang, 6, Value);Value=ReportGetCellValue("Report6", 28, 7);ReportSetCellValue("Report5", hang, 7, Value);Value=ReportGetCellValue("Report6", 28, 8);ReportSetCellValue("Report5", hang, 8, Value);Value=ReportGetCellValue("Report6", 28, 9);ReportSetCellValue("Report5", hang, 9, Value);Value=ReportGetCellValue("Report6", 28, 10);ReportSetCellValue("Report5", hang, 10, Value);Value=ReportGetCellValue("Report6", 28, 11);ReportSetCellValue("Report5", hang, 11, Value);Value=ReportGetCellValue("Report6", 28, 12);ReportSetCellValue("Report5", hang, 12, Value);Value=ReportGetCellValue("Report6", 28, 13);ReportSetCellValue("Report5", hang, 13, Value);Value=ReportGetCellValue("Report6", 28, 14);ReportSetCellValue("Report5", hang, 14, Value);Value=ReportGetCellValue("Report6", 28, 15);ReportSetCellValue("Report5", hang, 15, Value);//将⽇报表中的统计数据当天累积值输⼊到⽉报表中//以下为计算累积值Value1=ReportGetCellValue("Report5", 4, 2);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 2);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 2, Value);Value1=ReportGetCellValue("Report5", 4, 2);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 2);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 2, Value);Value1=ReportGetCellValue("Report5", 4, 3);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 3);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 3, Value);Value1=ReportGetCellValue("Report5", 4, 4);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 4);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 4, Value);Value1=ReportGetCellValue("Report5", 4, 5);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 5);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 5, Value);Value1=ReportGetCellValue("Report5", 4, 6);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 6);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 6, Value);Value1=ReportGetCellValue("Report5", 4, 7);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 7);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 7, Value);Value1=ReportGetCellValue("Report5", 4, 8);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 8);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 8, Value);Value1=ReportGetCellValue("Report5", 4, 9);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 9);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 9, Value);Value1=ReportGetCellValue("Report5", 4, 10);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 10);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 10, Value);Value1=ReportGetCellValue("Report5", 4, 11);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 11);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 11, Value);Value1=ReportGetCellValue("Report5", 4, 12);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 12);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 12, Value);Value1=ReportGetCellValue("Report5", 4, 13);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 13);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 13, Value);Value1=ReportGetCellValue("Report5", 4, 14);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 14);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 14, Value);Value1=ReportGetCellValue("Report5", 4, 15);//获取⽉报后台起始值Value2=ReportGetCellValue("Report5", hang, 15);//获取⽉报后台末尾值Value=Value2-Value1;ReportSetCellValue("Report5", 35, 15, Value);Reportsaveas("Report5",FileName);//HidePicture("⽉报后台");//..........................................................................................................................................................................................................................................................................................................................................//每天定时将⽉报后台reprot 5中的累积量插⼊到年报表后台report 8中string reportname2=StrFromReal( \\本站点\$年, 0, "f" )+".rtl";//把年转化为字符串⽤来命名//====================string FileName;//⾃定义变量FileName=InfoAppDir()+"年报\"+reportname2;long return02=InfoFile( Filename, 1, \\本站点\$分 );//查找⽂件是否存在,找不到返回0ShowPicture("年报后台");//HidePicture("年报后台");//判断年报⽬录下是否已经有当年的报表⽂件了if (return02==0)//当前⽬录下没有相应年报表报表{FileName=InfoAppDir()+"报表\年报.rtl";ReportLoad("Roport8",FileName);//把filename名称⽂件中数据填⼊到report中FileName=InfoAppDir()+"年报\"+ reportname2;Reportsaveas("Roport8",FileName);//报存⽉报后台}//如果当⽉的⽉报⽂件还没有产⽣则调⼊⽉报.rtl⽂件并按规定格式保存报表⽂件FileName=InfoAppDir()+"年报\"+StrFromReal( \\本站点\$年, 0, "f" )+".rtl";ReportLoad("Report8",FileName);//读取指定路径下的报表到当前控件报表long hang;hang= \\本站点\$⽉+3;//定位string str;long Value;long Value1;long Value2;str=ReportGetCellString("Report5", 2, 5);//获取指定报表单元格的⽂本str=StrLeft(str, 7);//裁剪str，只获取⽉ReportSetCellString("Report8", hang, 1, str);//将指定报表单元格设定为指定字符串//以上为在⽉报第⼀列添加⽇期Value=ReportGetCellValue("Report5", 35, 2);//获取指定报表单元格的数值ReportSetCellValue("Report8", hang, 2, Value);//将指定报表的指定单元格设定为指定值Value=ReportGetCellValue("Report5", 35, 3);ReportSetCellValue("Report8", hang, 3, Value);Value=ReportGetCellValue("Report5", 35, 4);ReportSetCellValue("Report8", hang, 4, Value);Value=ReportGetCellValue("Report5", 35, 5);ReportSetCellValue("Report8", hang, 5, Value);Value=ReportGetCellValue("Report5", 35, 6);ReportSetCellValue("Report8", hang, 6, Value);Value=ReportGetCellValue("Report5", 35, 7);ReportSetCellValue("Report8", hang, 7, Value);Value=ReportGetCellValue("Report5", 35, 8);ReportSetCellValue("Report8", hang, 8, Value);Value=ReportGetCellValue("Report5", 35, 9);ReportSetCellValue("Report8", hang, 9, Value);Value=ReportGetCellValue("Report5", 35, 10);ReportSetCellValue("Report8", hang, 10, Value);Value=ReportGetCellValue("Report5", 35, 11);ReportSetCellValue("Report8", hang, 11, Value);Value=ReportGetCellValue("Report5", 35, 12);ReportSetCellValue("Report8", hang, 12, Value);Value=ReportGetCellValue("Report5", 35, 13);ReportSetCellValue("Report8", hang, 13, Value);Value=ReportGetCellValue("Report5", 35, 14);ReportSetCellValue("Report8", hang, 14, Value);Value=ReportGetCellValue("Report5", 35, 15);ReportSetCellValue("Report8", hang, 15, Value);//将⽉报表后台report 5中的统计数据当天累积值输⼊到年报表后台report 8中；Value1=ReportGetCellValue("Report8", 4, 2);//起始值Value2=ReportGetCellValue("Report8", hang, 2);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 2, Value);Value1=ReportGetCellValue("Report8", 4, 3);//起始值Value2=ReportGetCellValue("Report8", hang, 3);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 3, Value);Value1=ReportGetCellValue("Report8", 4, 4);//起始值Value2=ReportGetCellValue("Report8", hang, 4);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 4, Value);Value1=ReportGetCellValue("Report8", 4, 5);//起始值Value2=ReportGetCellValue("Report8", hang, 5);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 5, Value);Value1=ReportGetCellValue("Report8", 4, 6);//起始值Value2=ReportGetCellValue("Report8", hang, 6);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 6, Value);Value1=ReportGetCellValue("Report8", 4, 7);//起始值Value2=ReportGetCellValue("Report8", hang, 7);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 7, Value);Value1=ReportGetCellValue("Report8", 4, 8);//起始值Value2=ReportGetCellValue("Report8", hang, 8);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 8, Value);Value1=ReportGetCellValue("Report8", 4, 9);//起始值Value2=ReportGetCellValue("Report8", hang, 9);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 9, Value);Value1=ReportGetCellValue("Report8", 4, 10);//起始值Value2=ReportGetCellValue("Report8", hang, 10);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 10, Value);Value1=ReportGetCellValue("Report8", 4, 11);//起始值Value2=ReportGetCellValue("Report8", hang, 11);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 11, Value);Value1=ReportGetCellValue("Report8", 4, 12);//起始值Value2=ReportGetCellValue("Report8", hang, 12);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 12, Value);Value1=ReportGetCellValue("Report8", 4, 13);//起始值Value2=ReportGetCellValue("Report8", hang, 13);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 13, Value);Value1=ReportGetCellValue("Report8", 4, 14);//起始值Value2=ReportGetCellValue("Report8", hang, 14);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 14, Value);Value1=ReportGetCellValue("Report8", 4, 15);//起始值Value2=ReportGetCellValue("Report8", hang, 15);//结束值Value=Value2-Value1;ReportSetCellValue("Report8", 16, 15, Value);Reportsaveas("Report8",FileName);//HidePicture("年报后台");//............................................................................................................................................................................................................................................................................................................................................。