列表过滤报表使用方法

、列表控件使用方法1、栏目的预置deletefromaa_columndic_basewhereckey='0412'andcfld=N'ipriority'InsertIntoaa_columndic_base(cKey,cFld,cQryField,iColPos,cCaption,cCaptionPar,bFixed,bDisp,iColWidth,iAlign,cOrder,bLock,iMergeCols,bMustSel,bNeedSum,LocaleID,IsEnum,bFilter,bMerge,cSumType,cProjectNO,cSubID,CanModify,ReferType)Values (N'0412',N'ipriority',Null,1,N' 优先级',Null,0,1,1200,1,Null,0,0,1,0,N'zh-cn',0,0,0,N'none',N'U870',N'ST',1,2)InsertIntoaa_columndic_base(cKey,cFld,cQryField,iColPos,cCaption,cCaptionPar,bFixed,bDisp,iColWidth,iAlign,cOrder,bLock,iMergeCols,bMustSel,bNeedSum,LocaleID,IsEnum,bFilter,bMerge,cSumType,cProjectNO,cSubID,CanModify,ReferType)Values (N'0412',N'ipriority',Null,1,N' 優先級',Null,0,1,1200,1,Null,0,0,1,0,N'zh-tw',0,0,0,N'none',N'U870',N'ST',1,2)InsertIntoaa_columndic_base(cKey,cFld,cQryField,iColPos,cCaption,cCaptionPar,bFixed,bDisp,iColWidth,iAlign,cOrder,bLock,iMergeCols,bMustSel,bNeedSum,LocaleID,IsEnum,bFilter,bMerge,cSumType,cProjectNO,cSubID,CanModify,ReferType)Values(N'0412',N'ipriority',Null,1,N'Priorty',Null,0,1,1200,1,Null,0,0,1,0,N'en-us',0,0,0,N'none',N'U870',N'ST',1,2)其中0412为栏目的标识，可以根据需要预置多个自己想要的栏目。2、列表初始化'初始化栏目服务DimoColumnAsU8ColumnSet.clsColSet'此定义为窗体变量或是全局变量SetoColumn=NewU8ColumnSet.clsColSetoColumn.Initconn,g_oLogin.cUserIdoColumn.setColMode"0412"'以材料出库单列表的栏目为例子，0412为ckey'取数SetrstList=NewADODB.RecordsetrstList.Open"select"&oColumn.GetSqlString&"fromrecordoutlist",conn,adOpenStatic,adLockReadOnlyVouchList1.SetVchLstRstrstList'列表记录集的填充方式设置：VouchList1.FillMode=FillOverwriteVouchList1.FillMode=FillAppend'FillOverwrite代表用方法VouchList1.SetVchLstRstrstList给列表填充数据的时候会覆盖原有数据，而FillAppend是在原来的显示列基础上追加数据。'合计方式：VouchList1.SumStyle=vlRecordAndGridsum'vlRecordSum'给列表控件赋栏目VouchList1.InitHeadoColumn.getColInfo获取列表某个单元格的值：VouchList1.TextMatrix(Row,VouchList1.GetColIndex("cinvcode")) row为行号，VouchListl.GetColIndex("cinvcode")为获取栏目cinvcode所对应的列号。设置单元格的编辑状态：VouchListl.DisableTextMatrixTrue,VouchListl.GetColIndex("cinvcode"),row获取列表数据dom:VouchListl.GetListDomTrue/falseTrue代表只获取选中的行。False获取全部的行。3、按钮事件设置toolbar按钮：栏目、定位等点击栏目可以设置栏目触发事件：Private Sub UFToolbarl_OnCommand(ByVal enumType AsUFToolBarCtrl.ENUM_MENU_OR_BUTTON,ByValcButtonIdAsString,ByValcMenuIdAsString)IfLCase(cButtonld)="tlbsel"Then'栏目设置IfNotoColumn.setCol=enmCancelThenVouchListl.InitHeadoColumn.getColInfoEndIfElseIfLCase(cButtonId)="tlblocate"Then'定位VouchListl.LocateTrueEndIfEndSub列表的打印输出和预览。打印：VouchList1.VchLstPrint预览：VouchListl.VchLstPreview输出：VouchList1.VchLstPrintToFile二、过滤条件的使用1、过滤的预置计入uap开发版之后,点击上面的工具下面的过滤设计器，输入产品号之后就可以设计过滤了，点击新增，这时你就可以新增过滤条件项了。其中名称为标示，标题为显示的表体，数据源是过滤条件拼写出来的sql语句的中的字段名。编辑类型可以根据需要选择，下面一些的选项可以自己选择。下面介绍一下几个特殊的编辑类型：A:参照类型，如果设置为参照，则要在下面填写对应的参照id,比如你这个过滤是仓库条件，参照id就为warehouse_aa，然后在最下面参照返回值中选择你要返回的是编码还是名称。B：枚举类型，设置为枚举类型的时候，需要在枚举烂里面输入枚举类型（就是aa_enum里面的enumtype字段），默认显示可以输入你想要默认显示的enumcode.用逗号分开。C:sql语句类型，如果编辑类型选择了sql语句的话，需要在sql语句页签下的第一个text框中输入数据源，如下图标题text框里面是你要显示的数据源字段对用的标题。返回字段列是你选中之后返回的的列，fld1代表第一列。

其他可以具体的参照其他过滤设置。2、过滤的调用DimoFltSrvAsNewUFGeneralFilter.FilterSrvIfoFltSrv.OpenFilteroLogin,FilterID,"",,"ST",,TrueEndif'其中oLogin是u81ogin,FilterlD是过滤的ID。"ST"是系统号。

三、新报表制作方法1、报表预置进入UAP开发版后，点击870后，右面会显示各个模块报表，下面以库存为例子来介绍报表制作方法。-U870+二采购管理+二成本管理+□出口管理+“二|存货核算+“二|工程变更+••二|合同管理+“二|进口管理-O库存管理.21旳表单.21cs表单+-」兰旦亩表单-在报表节点点击右键-新建报表安全库存预!按出口订单按生产订单按委外订单按物料齐套:按销售订单7保质期预警采贴在途明*超储存货查i然后就可以新建报表的数据引擎了，一般我们使用上面的选择方式来新建报表。其中而业务对象名称和描述可以自己选择名字。点击下一步就可以弹出下面界面在报表节点点击右键-新建报表2、数据源设置配置自定爻查询信息CST_RepOrtTeSt)自定爻类型设置|查询结果列］过滤条件设置］数据源服务组件类型： 习数据源服务类型信息：USSTREPORT.ClsTest这里是对报表设置数据源和列表体的地方，其中下面的数据源是在我们调用报表服务的时候，报表服务回掉的数据源工程和类，用来取数。所以你要确定你已经写好这个类。新报表是默认调用USSTREPORT.ClsTest里面的下面方法。PublicSubGetSql(eAsIFilterArgs)DimsSqlAsStringSetobjflt=e.RawFilterSetmconn=NewADODB.ConnectionSetmconn=e.Login.UfCurrentDbDimiCommandTimeOutAsLongiCommandTimeOut=mconn.CommandTimeoutmconn.CommandTimeout=0SetobjLogin=e.Logine.DataSource.Type=CustomDataSourceTypeEnum_TemplateTablestrTempTableName=e.DataSource.SQLsSql=MoveDataDetailmconn.CommandTimeout=iCommandTimeOutCalle.Args.Add("GroupFilter",GetViewFilter(""))EndSub3、查询结果列设置其中的名称和你数据源查询出来的结果列字段要一致。4、过滤条件设置此过滤条件是在调用报表服务时自动，报表服务自动调用的过滤。5、报表的调用DimoReportsrvAsReportService.clsReportManagerSetoReportsrv=NewReportService.clsReportManageroReportsrv.OpenReport"",g_oLogin,"ST"第'一个变量是报表的id'上面的调用报表服务会自动调用你传入id的报表，先弹出过滤界面，如果你给这个报表设置了过滤条件，单击过滤就会弹出报表界面'点击过滤后报表会自动调用你预置的类的数据源中的方法老报表调用getsqlforold,新报表调用getsql。'然后调用的时候报表服务会传入一个对象，里面有login的信息和一个临时表名，你把报表的明细数据插入到这个临时表后报表控件就会显示数据。四、参照控件和参照服务的使用1.引用参照服务的引用：

参照控件的引用：2.参照的初始化新建一个EditRef控件EditRefl，初始化的时候设置如下。RefEdit1.RefType=RefUserBrowse表示是用户自己设置参照ID。参照类型有好几中其中;RefCalculator代表是数值类型的参照，就是计算器RefDate代表是日期类型参照，参照出来的是日历。调用参照服务如果设置参照类型为用户自定义参照，可以调用参照服务,下面以仓库参照为例子PrivateSubRefEdit1_Click()DimRefAsNewU8RefService.IServiceDimretRstClassAsADODB.RecordsetDimretRstGridAsADODB.RecordsetDimsErrorAsStringRef.RefID="warehouse_aa"Ref.MetaXML="<Ref><RefSetbMultiSel='0'bAuth='0'/><DataSrc><DataClassbRetEndData='0'/></DataSrc></Ref>"Ref.Mode=modeRefingIfRefEdit1.Text<>""Th