、列表控件使用方法1、欄目的預(yù)置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' 優(yōu)先級',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' 優(yōu)先級',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為欄目的標識，可以根據(jù)需要預(yù)置多個自己想要的欄目。2、列表初始化'初始化欄目服務(wù)DimoColumnAsU8ColumnSet.clsColSet'此定義為窗體變量或是全局變量SetoColumn=NewU8ColumnSet.clsColSetoColumn.Initconn,g_oLogin.cUserIdoColumn.setColMode"0412"'以材料出庫單列表的欄目為例子，0412為ckey'取數(shù)SetrstList=NewADODB.RecordsetrstList.Open"select"&oColumn.GetSqlString&"fromrecordoutlist",conn,adOpenStatic,adLockReadOnlyVouchList1.SetVchLstRstrstList'列表記錄集的填充方式設(shè)置：VouchList1.FillMode=FillOverwriteVouchList1.FillMode=FillAppend'FillOverwrite代表用方法VouchList1.SetVchLstRstrstList給列表填充數(shù)據(jù)的時候會覆蓋原有數(shù)據(jù)，而FillAppend是在原來的顯示列基礎(chǔ)上追加數(shù)據(jù)。'合計方式：VouchList1.SumStyle=vlRecordAndGridsum'vlRecordSum'給列表控件賦欄目VouchList1.InitHeadoColumn.getColInfo獲取列表某個單元格的值：VouchList1.TextMatrix(Row,VouchList1.GetColIndex("cinvcode")) row為行號，VouchListl.GetColIndex("cinvcode")為獲取欄目cinvcode所對應(yīng)的列號。設(shè)置單元格的編輯狀態(tài)：VouchListl.DisableTextMatrixTrue,VouchListl.GetColIndex("cinvcode"),row獲取列表數(shù)據(jù)dom:VouchListl.GetListDomTrue/falseTrue代表只獲取選中的行。False獲取全部的行。3、按鈕事件設(shè)置toolbar按鈕：欄目、定位等點擊欄目可以設(shè)置欄目觸發(fā)事件：Private Sub UFToolbarl_OnCommand(ByVal enumType AsUFToolBarCtrl.ENUM_MENU_OR_BUTTON,ByValcButtonIdAsString,ByValcMenuIdAsString)IfLCase(cButtonld)="tlbsel"Then'欄目設(shè)置IfNotoColumn.setCol=enmCancelThenVouchListl.InitHeadoColumn.getColInfoEndIfElseIfLCase(cButtonId)="tlblocate"Then'定位VouchListl.LocateTrueEndIfEndSub列表的打印輸出和預(yù)覽。打印：VouchList1.VchLstPrint預(yù)覽：VouchListl.VchLstPreview輸出：VouchList1.VchLstPrintToFile二、過濾條件的使用1、過濾的預(yù)置計入uap開發(fā)版之后,點擊上面的工具下面的過濾設(shè)計器，輸入產(chǎn)品號之后就可以設(shè)計過濾了，點擊新增，這時你就可以新增過濾條件項了。其中名稱為標示，標題為顯示的表體，數(shù)據(jù)源是過濾條件拼寫出來的sql語句的中的字段名。編輯類型可以根據(jù)需要選擇，下面一些的選項可以自己選擇。下面介紹一下幾個特殊的編輯類型：A:參照類型，如果設(shè)置為參照，則要在下面填寫對應(yīng)的參照id,比如你這個過濾是倉庫條件，參照id就為warehouse_aa，然后在最下面參照返回值中選擇你要返回的是編碼還是名稱。B：枚舉類型，設(shè)置為枚舉類型的時候，需要在枚舉爛里面輸入枚舉類型（就是aa_enum里面的enumtype字段），默認顯示可以輸入你想要默認顯示的enumcode.用逗號分開。C:sql語句類型，如果編輯類型選擇了sql語句的話，需要在sql語句頁簽下的第一個text框中輸入數(shù)據(jù)源，如下圖標題text框里面是你要顯示的數(shù)據(jù)源字段對用的標題。返回字段列是你選中之后返回的的列，fld1代表第一列。

其他可以具體的參照其他過濾設(shè)置。2、過濾的調(diào)用DimoFltSrvAsNewUFGeneralFilter.FilterSrvIfoFltSrv.OpenFilteroLogin,FilterID,"",,"ST",,TrueEndif'其中oLogin是u81ogin,FilterlD是過濾的ID。"ST"是系統(tǒng)號。

三、新報表制作方法1、報表預(yù)置進入UAP開發(fā)版后，點擊870后，右面會顯示各個模塊報表，下面以庫存為例子來介紹報表制作方法。-U870+二采購管理+二成本管理+□出口管理+“二|存貨核算+“二|工程變更+??二|合同管理+“二|進口管理-O庫存管理.21旳表單.21cs表單+-」蘭旦畝表單-在報表節(jié)點點擊右鍵-新建報表安全庫存預(yù)!按出口訂單按生產(chǎn)訂單按委外訂單按物料齊套:按銷售訂單7保質(zhì)期預(yù)警采貼在途明*超儲存貨查i然后就可以新建報表的數(shù)據(jù)引擎了，一般我們使用上面的選擇方式來新建報表。其中而業(yè)務(wù)對象名稱和描述可以自己選擇名字。點擊下一步就可以彈出下面界面在報表節(jié)點點擊右鍵-新建報表2、數(shù)據(jù)源設(shè)置配置自定爻查詢信息CST_RepOrtTeSt)自定爻類型設(shè)置|查詢結(jié)果列］過濾條件設(shè)置］數(shù)據(jù)源服務(wù)組件類型： 習數(shù)據(jù)源服務(wù)類型信息：USSTREPORT.ClsTest這里是對報表設(shè)置數(shù)據(jù)源和列表體的地方，其中下面的數(shù)據(jù)源是在我們調(diào)用報表服務(wù)的時候，報表服務(wù)回掉的數(shù)據(jù)源工程和類，用來取數(shù)。所以你要確定你已經(jīng)寫好這個類。新報表是默認調(diào)用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、查詢結(jié)果列設(shè)置其中的名稱和你數(shù)據(jù)源查詢出來的結(jié)果列字段要一致。4、過濾條件設(shè)置此過濾條件是在調(diào)用報表服務(wù)時自動，報表服務(wù)自動調(diào)用的過濾。5、報表的調(diào)用DimoReportsrvAsReportService.clsReportManagerSetoReportsrv=NewReportService.clsReportManageroReportsrv.OpenReport"",g_oLogin,"ST"第'一個變量是報表的id'上面的調(diào)用報表服務(wù)會自動調(diào)用你傳入id的報表，先彈出過濾界面，如果你給這個報表設(shè)置了過濾條件，單擊過濾就會彈出報表界面'點擊過濾后報表會自動調(diào)用你預(yù)置的類的數(shù)據(jù)源中的方法老報表調(diào)用getsqlforold,新報表調(diào)用getsql。'然后調(diào)用的時候報表服務(wù)會傳入一個對象，里面有l(wèi)ogin的信息和一個臨時表名，你把報表的明細數(shù)據(jù)插入到這個臨時表后報表控件就會顯示數(shù)據(jù)。四、參照控件和參照服務(wù)的使用1.引用參照服務(wù)的引用：

參照控件的引用：2.參照的初始化新建一個EditRef控件EditRefl，初始化的時候設(shè)置如下。RefEdit1.RefType=RefUserBrowse表示是用戶自己設(shè)置參照ID。參照類型有好幾中其中;RefCalculator代表是數(shù)值類型的參照，就是計算器RefDate代表是日期類型參照，參照出來的是日歷。調(diào)用參照服務(wù)如果設(shè)置參照類型為用戶自定義參照，可以調(diào)用參照服務(wù),下面以倉庫參照為例子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