|
先创建一个工程，然后创建一个画面，打开画面，在工具中找到报表窗口，将需要手动输入的文字填入报表中。传感三个控制按钮，分别是创建报表、启动记录和保存报表。  创建如下变量  在命令语言下的事件命令语言中创建四个事件：创建报表、报表增加、保存文件和记录启动
 创建报表 
string ReportTableTemp=InfoAppDir() + "报表模板\报表模板.rtl";
ReportLoad("ReportTableWindow",ReportTableTemp);
long StartTime=HTConvertTime(\\local\$Year,\\local\$Month,\\local\$Day,\\local\$Hour,\\local\$Minute,\\local\$Second);
ReportSetHistData("ReportTableWindow", "\\local\$Time", StartTime, \\local\$Millisecond, "b4:b2000");
ReportSetHistData("ReportTableWindow", "\\local\$Year", StartTime, \\local\$Year, "c4:c2000");
ReportSetHistData("ReportTableWindow", "\\local\$Month", StartTime, \\local\$Month, "d4:d2000");
ReportSetHistData("ReportTableWindow", "\\local\$Day", StartTime, \\local\$Day, "e4:e2000");
ReportSetHistData("ReportTableWindow", "\\local\$Hour", StartTime, \\local\$Hour, "f4:f2000");
ReportSetHistData("ReportTableWindow", "\\local\$Minute", StartTime, \\local\$Minute, "g4:g2000");
ReportSetHistData("ReportTableWindow", "\\local\$Second", StartTime, \\local\$Second, "h4:h2000");
ReportSetCellString("ReportTableWindow", 2, 2, \\local\$Date);
ReportSetCellString("ReportTableWindow", 2, 4, \\local\$Time);
\\local\行号=4;
报表增加 
string Number=StrFromInt(\\local\行号-3,10);
string Year=StrFromInt(\\local\$Year, 10 );
string Month=StrFromInt(\\local\$Month, 10 );
string Day=StrFromInt(\\local\$Day, 10 );
string Hour=StrFromInt(\\local\$Hour, 10 );
string Minute=StrFromInt(\\local\$Minute, 10 );
string Second=StrFromInt(\\local\$Second, 10 );
ReportSetCellString("ReportTableWindow", \\local\行号,1,Number);
ReportSetCellString("ReportTableWindow", \\local\行号,2,\\local\$Time);
ReportSetCellString("ReportTableWindow", \\local\行号,3,Year);
ReportSetCellString("ReportTableWindow", \\local\行号,4,Month);
ReportSetCellString("ReportTableWindow", \\local\行号,5,Day);
ReportSetCellString("ReportTableWindow", \\local\行号,6,Hour);
ReportSetCellString("ReportTableWindow", \\local\行号,7,Minute);
ReportSetCellString("ReportTableWindow", \\local\行号,8,Second);
\\local\报表增加=0;
记录启动（存在事件）：以3S为一个周期记录数据 
\\local\报表增加=1;
\\local\行号=\\local\行号+1;
保存文件 
string Year=StrFromInt(\\local\$Year, 10 );
string Month=StrFromInt(\\local\$Month, 10 );
string Day=StrFromInt(\\local\$Day, 10 );
string Hour=StrFromInt(\\local\$Hour, 10 );
string Minute=StrFromInt(\\local\$Minute, 10 );
string Second=StrFromInt(\\local\$Second, 10 );
\\local\报表编号=Year+Month+Day+Hour+Minute+Second;
string ReportTablePath=InfoAppDir() + "Excel报表\"+\\local\报表编号+".csv";
ReportSaveAs("ReportTableWindow",ReportTablePath);
运行效果：点击保存报表后再本地也会生产一个EXCEL的文件 
|