1、x：也x_E_jm頂二USRowAuthocxU8TabPagesDescrcition:U8VoucherSotterCtljJUI1TGeneralAlZJRerEdtU8參照編程指南F面所有參照ID只用來測試使用，不作最終的參照ID1、控件引用ComponentsControlsUSAuthLevelsetUSBudgetRefUSColAuthSetU8CotsetocxUSDeptTreeU8FindOCXU8Msg8okFotWebUSPictureU8Ref)8RefEditlSelectedItemsOnlyU8RefEditLocation:D，WINNTky5Um3幻UFC

2、OMSQLVJ8iMfE&t.ocx2、使用示例2.1元素據定義參照屬性設置RefEdit.RefType=Reftypes.RefArchive例如：示例1：直接調用存貨參照調用存貨初始化(窗體參照)：EdtArchive.RefType=RefArchiveCallMe.EdtArchive.lnit(g_oLogin,"Inventory_AA",False,"")示例2：直接調用倉庫檔案參照調用倉庫初始化(列表參照)EdtArchive.RefType=RefArchiveCallMe.EdtArchive.Init(g_oLogin,&

3、quot;warehouse_AA”,False,"")其中參數值"Inventory”,"warehouse”均表示參照ID,示例3:程序動態設置部分元素據定義示例：EdtArchive.RefType=RefArchiveCallMe.EdtArchive.Init(g_oLogin,"Inventory_AA",False,"")sMetaXML="<Ref><RefSetbMultiSel='O'iShowStyle='1'/></Re

4、f>”CallEdtArchiveUser.Init(g_oLogin,"Inventory",False,sMetaXML)其參照格式元素據定義：參照元素據定義.xml2.2枚舉參照屬性設置：EdtRefEnum.RefType=Reftypes.RefEnumType2.2.1、調用類型1(完整型)(其XML格式定義：參照枚舉元素據參數定義.xml)例如：DimsXmlAsStringsXml="<Ref>"&_"<RefSetcRetFld='code'cCheckFlds='cod

5、e,name'cShowFld='name'"&"</RefSet>"&"<DataSrc>"&"<DataGridprovider='XML'cDataSrclD=">"&_"<ltemcode='0'name='無換算率'/>"&_"<ltemcode='1'name='固定換算率'/&

6、gt;"&_"<ltemcode=2name='浮動換算率'/>"&_"</DataGrid>"&_"</DataSrc>"&"<RefColSet>"&"<U8ColSet>"&_"<Data>"&_"<ColSetcFld='code'bDisp='1'cCaption=”

7、iColWidth='0'iAlign=&1_>”<ColSetcFld='name'bDisp='1'cCaption=”iColWidth='1500'iAlign='1'/&"_"</Data>"&"</U8ColSet>"&_"</RefColSet>"&_"</Ref>"EdtRefEnum.RefType=Refty

8、pes.EnumTypeCallMe.EdtRefEnumnit(g_oLogin,sXml,False,"")2.2.2、調用類型2(簡約型)格式定義：同UFComboBox控件的SetEnumMapString("")格式保持一致例如：DimstrEnumAsStringstrEnum=”是#否#yes#no”CallMe.EdtRefEnum.Init(g_oLogin,strEnum,False,"")2.2.3、調用類型3(數據庫型)應用場景：對于參照的枚舉數據需要從AA_Enum中讀取；格式定義：(其XML格式定義：參照枚

9、舉元素據參數定義.xml)例如(示例格式為XML簡寫格式)：DimsXMLAsStringsXML="<Ref><DataSrc>"&_"<DataGridprovider='DB'cEnumTypelD='AA.ARCHIVE.boolean'>"&_"</DataGrid>"&_"</DataSrc></Ref>"CallRefEditEnumDB.Init(g_oLogin,sXML

10、,False,”)2.3日歷調用直接設置屬性：EdtDate.RefType=Reftypes.RefDate2.4計算器調用直接設置屬性：EdtCal.RefType=Reftypes.RefCalculator2.5自定義數據參照調用屬性設置：EdtArchive.RefType=RefTypes.RefUserDefine元素據定義、顯示數據完全有調用者實現示例1：樹表結構窗體參照示例2：表結構窗體參照示例3：列表參照下面將三個示例一起實現第一步：初始化：CallRefUserDefineEdit.Init(Me,"inventory")CallRefUserDefi

11、neSimpleEdit.Init(Me,"warehouse")CallRefUserDefineSimpleEdit_List.Init(Me,"warehouse_list")第二步：實現獲取元素據方法'功能：實現自定義參照的獲取元素據PublicSubGetSrvRefMeta(sRefIDAsString,sXMLAsString,MetaXMLAsString,sMsgAsString,bFlagAsBoolean)SelectCaseLCase(sRefID)Case"inventory"MetaXML=&quo

12、t;<RefcRefName='存貨自定義參照'cEntityKeyFld='cInvCode'cEntityNameFld='cInvName'>"&_"<RefSetcCheckFlds='cInvCode,cInvName'iFilterStyle='1'>"&_"</RefSet>"&_"<DataSrc>"&_"<DataClasscData

13、SrcID='InventoryClass'cRefClsName='存貨分類'bRule='1'clsCode='cInvCCode'clsName='cInvCName'sortField='cInvCCode'/>"&_"<DataGridcDataSrcID='Inventory'clsCode='cInvCCode'/>"&_"</DataSrc>"&_&

14、quot;<RefColSet><U8ColSet><Data>"&_"<ColSetcFld='cInvCode'bDisp='1'cCaption='存貨編碼'iColWidth='1000'iAlign='1'/>"&_"<ColSetcFld='cInvname'bDisp='1'cCaption='存貨名稱'iColWidth='1500&#

15、39;iAlign='1'/>"&_"</Data></U8ColSet></RefColSet>"&_"</Ref>"Case"warehouse"MetaXML="<RefcRefName='倉庫自定義參照'cEntityKeyFld='cWhcode'cEntityNameFld='cWhName'>"&_"<RefSetcChec

16、kFlds='cWhcode,cWhName'iShowStyle='0'iFilterStyle='1'>"&_"</RefSet>"&"<DataSrc>"&"</DataSrc>"&"<RefColSet><U8ColSet><Data>"&_"<ColSetcFld='cWhcode'bDisp=

17、9;1'cCaption='倉庫編碼'iColWidth='1000'iAlign='1'/>"&_"<ColSetcFld='cWhName'bDisp='1'cCaption='倉庫名稱'iColWidth='1500'iAlign='1'/>"&_"</Data></U8ColSet></RefColSet>"&"&l

18、t;/Ref>”Case"warehouse_list"MetaXML="<RefcRefName='倉庫自定義參照'cEntityKeyFld='cWhcode'cEntityNameFld='cWhName'>"&_"<RefSetcCheckFlds='cWhcode,cWhName'iShowStyle='1'iFilterStyle='1'>"&_"</RefSet&g

19、t;"&_"<DataSrc>"&_"</DataSrc>"&_"<RefColSet><U8ColSet><Data>"&_"<ColSetcFld='cWhcode'bDisp='1'cCaption='倉庫編碼'iColWidth='1000'iAlign='1'/>"&_"<ColSetcFl

20、d='cWhName'bDisp='1'cCaption='倉庫名稱'iColWidth='1500'iAlign='1'/>"&_"</Data></U8ColSet></RefColSet>"&"</Ref>"EndSelectEndSub第三步：實現獲取數據方法PublicSubGetSrvData(sRefIDAsString,sXMLAsString,RstClassAsADODB.Re

21、cordset,RstGridAsADODB.Recordset,RstColSetAsADODB.Recordset,sMsgAsString,bFlagAsBoolean)IfbLogin=FalseThenMsgBox"Loginfirst!"ExitSubEndIfDimcnnAsNewADODB.ConnectionDimsWhereSqlAsStringcnn.ConnectionString=g_oLogin.ufdbnamecnn.OpenbFlag=TrueIfLen(sXML)>0ThenDimdomAsNewDOMDocumentCalldom.

22、loadXML(sXML)sWhereSql=dom.documentElement.selectSingleNode("filtersql").TextIfLen(sWhereSql)>0ThensWhereSql="where"+sWhereSqlEndIfEndIfSelectCaseLCase(sRefID)Case"inventory"bFlag=GetRst(cnn,"selectcast(0asbit)asbRefSelectColumncInvCCode,cInvCNamefrominventorycl

23、ass",RstClass,sMsg)IfbFlag=TrueThenbFlag=GetRst(cnn,"selectcInvCode,cInvNamefromInventory"+sWhereSql,RstGrid,sMsg)EndIfCase"warehouse","warehouse_list"bFlag=GetRst(cnn,"selectcast(0asbit)asbRefSelectColumncWhcode,cWhNamefromwarehouse"+sWhereSql,RstGrid,sM

24、sg)EndSelectcnn.CloseSetcnn=NothingEndSub2.6完全自定義設置屬性：EdtArchive.RefType=RefTypes.RefUserBrowse自己實現控件消息EditArchive_UserBrowse(sXML)RichText編輯框直接設置屬性：EdtDate.RefType=Reftypes.RefRichTextWeb參照調用Web參照調用和C/S調用基本相同：其加載步驟如下：1、加載RefEdit控件到Web頁面2、設置屬性3、初始化Init接口配置文件：1、注冊組件：U8WebRefS.dll2、將文件U8WebRefS.ASP放在虛

25、擬目錄的根目錄下即可示例1:調用存貨檔案：1、設置屬性：<objectclassid="clsid:0E2FDA55-039D-4774-96FB-252507AD2544"id="EdtArchive"width="280"height="19”><paramname="RefType"value="1"></object>2、初始化：在初始化時調用方法：callEdtArchive.init(Nothing,Document.URL&&q

26、uot;?refid=inventory_AA",true,"")示例2:調用枚舉1、設置屬性：<objectclassid="clsid:0E2FDA55-039D-4774-96FB-252507AD2544”id="EdtRefEnumSimple"width="280"height="19"><paramname="RefType"value="4"></object>2、初始化：在初始化時調用方法:callEd

27、tRefEnumSimple.Init(Nothing,Document.URL&"?refid=0#1#否#是",true,"")示例3:調用日歷：引用控件后，直接設置屬性即可<objectclassid="clsid:0E2FDA55-039D-4774-96FB-252507AD2544"id="EdtRefDate"width="280"height="19"><paramname="RefType"value="

28、;2”></object>示例4:調用計算器引用控件后，直接設置屬性即可<objectclassid="clsid:0E2FDA55-039D-4774-96FB-252507AD2544"id="EdtRefCalculator”width="280"height="19"><paramname="RefType"value="3"></object>Edit)RefUserDefine夕卜,，且屬性Text內容,2、屬性描述:1

29、、RefType:設置參照類型，目前包括參照、枚舉、日歷、計算器、無（等同RefNone=0沒有參照，等同EditRefArchive=1參照檔案，必須通過預制參照兀素據方可使用RefDate=2參照日歷檔案RefCalculator=3參照計算器RefEnumType=4參照枚舉RefUserDefine=5用戶實現兀素據和數據RefUserBrowse=6用戶自己實現參照RefFile=7參照文件RefRichText=8多行編輯框，類似記事本2、DisplayText:用來顯示的內容，對于除參照屬性為RefArchive、RefEnumType其Text和DisplayText默認是一致

30、的3、Text:用來保存到數據庫的值，設置該屬性時，對應參照、自定義參照AutoDisplayText=true,將會查詢數據庫內容，根據參照元素定義顯示DisplayText注意1:對于參照屬性為RefArchive、RefUserDefine,其控件獲得焦點將顯示若離開焦點，將顯示DisplayText內容注意2:對于參照屬性為RefArchive，若m_AutoDisplayText=False,輸入一個值，或者m_AutoDisplayText=true輸入一個非法值時，此時真正的Text內容為空，但為了方便業務組獲取Text內容，此時Text內容為用戶輸入的內容。4、Valid:表示

31、當前的內容是否合法5、AutoHideCmd:是否自動隱藏Button按鈕6、AutoDisplayText:設置參照是否自動檢查賦值Text屬性是否正確，并顯示相關信息，默認為true，即當RefType為RefArchive、RefUserDefine、RefEnumType時，控件自動根據參照定義查詢和顯示相關內容7、AutoExchangeText:是否自動切換Text與DisplayText值的顯示，默認為true,即當RefType為RefArchive、RefUserDefine類型時，且AutoExchangeText屬性為true時，貝若控件獲得焦點，則顯示Text內容，若離

32、開焦點時，則顯示DisplayText內容8、MultiTextElement:對于多選內容，需要返回所有的返回字段和顯示字段的內容，且格式為XML的格式，只讀屬性其格式為:<datacRetFld="cInvcode"cShowFld="cInvCode,cInvName"><Itemvalue="201"DisplayText="201-sdfas201”/><Itemvalue="204"DisplayText="204-sdfas204”/><I

33、temvalue="208"DisplayText="208-sdfas208”/><Itemvalue="211"DisplayText="211-sdfas211"/><Itemvalue="213"DisplayText="213-sdfas213”/></data>9、MultiTextXML:多選賦值屬性只寫屬性示例：DimsXMLAsStringsXML="<datacRetFld='cInvCode'cSho

34、wFld='cInvName'>”sXML=sXML+"<Itemvalue='10001'DisplayText='fuziname10001'/>”sXML=sXML+"<Itemvalue='10004'DisplayText='fuziname10004'/>”sXML=sXML+"<Itemvalue='10010'DisplayText='fuziname10010'/>"sXML=sXML

35、+"</data>"EdtArchive.MultiRetStyle=RetMultiNameEdtArchive.MultiTextXML=sXML10、LanguageID:多語屬性其枚舉內容如下：zh_CN=0zh_TW=1en_US=2對應屬性設置，若在給控件初始化時，傳給Login對象的，可以不用設置該屬性，控件根據Login對象自動獲取多語屬性，對應沒有傳入Login對象，若需要控制多語，則必須設置該屬性11、MultiRetStyle:多選時多值返回風格其枚舉：RetSingle=0:表示只返回第一個數據集的相關內容，即按照參照定義返回內容，和單選

36、返回處理方式是一致的；RetMultiCode=1:表示Text=,DisplayText=多選的編碼，之間用“；”（即：空格+英文分號+空格）RetMultiName=2:表示Text=，DisplayText多選的名稱，之間用“；”（即：12空格+英文分號+空格）RememberLastRst:是否選中上次選擇的記錄，即第一次參照返回數據后，再次點擊參照，若RememberLastRst=true,則系統自動選中上次記錄13、其它屬性與Edit相同，此處不再列舉3、事件1、值改變消息消息定義：PublicEventTextChange()該消息表示從進入RefEdit控件開始到離開RefE

37、dit控件之后，若參數值發生改變，將觸發該消息，在中間過程變化將不觸發該消息2、點擊參照獲取過濾消息和是否取消參照消息定義：PublicEventBeforeBrowse(ByRefsXMLFilterAsString,sSQLAsString,ByRefCancelAsBoolean)參數說明：sXMLFilter:XML格式條件sSQL:過濾條件串其格式為：sXMLFilter="<RefConditions>”sXMLFilter=sXMLFilter+"<ConditionparamName='cDepCode'paramValue

38、='001'/>”sXMLFilter=sXMLFilter+"</RefConditions>"Cancel:當賦值為True時，表示此時不用參照注意：參數名paramName嚴格區分大小寫，即示例中cDepCode是嚴格區分大小寫3、數據填充消息消息定義：PublicEventAfterBrowse(ByRefRstClassAsADODB.Recordset,ByRefRstGridAsADODB.Recordset,ByRefsXMLAsString)該消息表示在彈出參照，并選擇完成數據后，程序員可能需要填寫其他數據，其中參數含義：

39、RstClass:對于有分類的參照，若操作員選擇分類后，將返回選擇的分類記錄RstGrid:返回列表的數據sXML:預留參數4、激活保存按鈕消息消息定義：PublicEventActiveSaveBtn()對于點擊參照按鈕、或按快捷鍵，并同時返回數據，此時RefEdit自動觸發該消息。參照包括檔案參照、日歷參照、計算器參照等含按鈕的參照5、其它事件：其它事件同Edit控件1、初始化函數'功能：初始化控件,'參數:oLogin主要初始化Login對象，參照元素據ID(RefID)Login對象RefIDbWeb:參照ID是否Web參照sMetaXML:元數據參照定義PublicF

40、unctionInit(oLoginAsVariant,sRefIDAsString,OptionalBWebAsBoolean=False,OptionalsMetaXMLAsString)AsBoolean2、清除所有顯示的相關內容函數定義:'功能：清空所有顯示相關內容PublicSubClear()3、動態設置過濾參數'功能：設置過濾條件'參數：'sXMLFilterPara:XML格式參數：,格式為:'sXMLFilterPara="<RefConditions>”'sXMLFilterPara=sXMLFilter

41、Para+"<ConditionparamName='cdepcode'paramValue='"+EdtDeparment.Text+"'/>”'sXMLFilterPara=sXMLFilterPara+"</RefConditions>"'sSQL="#CAPerson.cdepcode=cDepCode”,注意：參數cdepcode若用設計器設計的靜態條件必須區分大小寫'sSQL:Sql過濾條件串'sMsg:錯誤信息PublicFuncti

42、onSetXMLFilterPara(sXMLFilterParaAsString,sSQLAsString,OptionalByRefsMsgAsString)AsBooleanSetXMLFilterPara=Falsem_FilterXML=ConvertMetaFilterXML(sXMLFilterPara,sSQL)SetXMLFilterPara=TrueEndFunction3、使用技巧示例1:如何提高一個編輯框實現多個參照效率應用場景：在一個Grid中，使用多個參照，但只使用一個參照Edit控制，這樣不同列之間切換，則需要不斷的Init,由于調用參照Edit的Init方法，則

43、參照Edit會清空所有緩存內容，例如：清空欄目、元素據等，這樣一般同一列調用的參照是一致的，則用戶每當回到當前列，又要重新初始化，參照Edit會重新構建對象，導致效率比較低。為了提高參照效率，采用下列方法假設Grid有三列，第一列參照存貨、第二列參照倉庫為例，第三列為枚舉：1、定義數據，用來保存參照的內存緩存內容DimarrReg(0To2)AsNewU8Ref.RegisterObjs2、Edit在第一列：參照初始化：CallEdtArchive.Init(g_oLogin,"Inventory_AA”,False,"")3、參照Edit移到第二列首先保存第一列

44、的緩存：SetSetarrReg(O)=EdtArchive.RegObj初始化第二列CallEdtArchive.Init(g_oLogin,"warehouse_AA",False,"")4、參照Edit移到第三列首先保存第二列的緩存：SetarrReg(1)=EdtArchive.RegObj初始化第三列sXML="0#1#否#是”CallMe.EdtRefEnumSimple.lnit(g_oLogin,sXML,False,"")5、參照Edit移到第一列首先保存第三列的緩存：SetarrReg(2)=EdtArc

45、hive.RegObj初始化第一列CallEdtArchive.Init(g_oLogin,"Inventory_AA",False,"")設置剛才第一列的緩存內容EdtArchive.RegObj=arrReg(O)6、退出程序必須清理緩存SetarrReg(0)=NothingSetarrReg(1)=Nothing,其錯誤提示SetarrReg(2)=Nothing該步必須添加,特別是Web,否則Web在最后退出頁面后,瀏覽器會彈出錯誤如下：,每次初始化后，設置參照Edit的緩存MicroAaftInternetExplor?r遇到問題需要關閉？我

46、們對此引起的不便恚示抱歉口如果燎正處于進程當中？信息有可能丟失？臣重啟Microsoft.InternetEnplofw迅)諸擂此I可題報告紿Microsoft.捌門已料淫了一亍錯逞推告，悠可既悔苴童送紿我們氏幫舸就改善MicrosoftInternetEzplorer的質量*這T報告會彼認為是機密的匿名的？要查看這于擢俁報告赳含的數據請里擊此處韭調試I垃送縉誤報吉|環謹曹!從上述過程可以看出，即:每一列參照設置一個緩存對象內容由于上述寫法，可能導致代碼較多，可以采用下列簡單方法處理假設Grid有五列，第一列參照倉庫、第二列參照存貨，第三列沒有參照，第四列枚舉參照，第五列參照日歷1、初始化Di

47、marrRegGrid(0To4)AsNewU8Ref.RegisterObjs2、進入單元格，賦值緩存PrivateSubGrid_EnterCell()editGrid.AutoDisplayText=FalseeditGrid.CleareditGrid.Movegrid.CellLeft,grid.CellTop,grid.CellWidth,grid.CellHeighteditGrid.Visible=FalseeditGrid.Visible=TrueSelectCasegrid.ColCase0editGrid.RefType=U8Ref.RefArchiveCalleditG

48、rid.Init(g_oLogin,"warehouse_AA")editGrid.Text=grid.TextMatrix(grid.Row,grid.Col)Case1editGrid.RefType=U8Ref.RefArchiveCalleditGrid.Init(g_oLogin,"Inventory_AA")editGrid.Text=grid.TextMatrix(grid.Row,grid.Col)Case2editGrid.RefType=U8Ref.RefNoneeditGrid.Text=grid.TextMatrix(grid.R

49、ow,grid.Col)Case3editGrid.RefType=U8Ref.RefEnumTypeCallMe.editGrid.lnit(g_oLogin,”0#1#?#c?",False,"')editGrid.AutoDisplayText=TrueeditGrid.Text=grid.TextMatrix(grid.Row,grid.Col)Case4editGrid.RefType=U8Ref.RefDateeditGrid.Text=grid.TextMatrix(grid.Row,grid.Col)EndSelecteditGrid.RegObj=

50、arrRegGrid(grid.Col)EndSub3、離開單元格，保存緩存PrivateSubGrid_LeaveCell()SetarrRegGrid(grid.Col)=editGrid.RegObjgrid.TextMatrix(grid.Row,grid.Col)=editGrid.TexteditGrid.ClearEndSub4、退出窗體，清理資源PrivateSubForm_Unload(CancelAslnteger)OnErrorResumeNextDimiAsIntegerFori=LBound(arrRegGrid)ToUBound(arrRegGrid)SetarrR

51、egGrid(i)=NothingNextiEndSub示例2:如何運行時添加過濾條件一、靜態條件設置有時參照可能用某一參照ID,但是可能有條件的，例如：參照服務供應商檔案，這時可以參照無條件限制的供應商參照，但額外增加參照條件初始化方式如下：DimsMetaXMLAsStringsMetaXML="<Ref><RefSetcRefFilterSql=""bVenService=1""/></Ref>"CallEdtcPrimaryVen.lnit(g_oLogin,g_URL+"Vend

52、or_AA”,g_blsWeb,sMetaXML)二、動態參數條件應用場景：有兩個參照，第一個參照為部門，第二個參照為人員，當客戶先參照第一個部門，選擇完部門后，可能在第二個參照需要實現該部門下的人員條件1、預制元數據時，必須設定參數1壬7布*憚打10鬃*KXf牛國重f畀戶1眼;TiiH*HfiJ吝Fl¥!l杏L?+“一員怙一j£局部放大參照爹敷條件參數變量名參數表達式?Hia)方法一：點擊人員參照時響應參照消息(推薦使用)2、設置過濾條件PrivateSubEdtPerson_BeforeBrowse(sXMLFilterAsString,CancelAsBoolean)

53、IfLen(EdtDeparment.Text)>0ThensXMLFilter="<RefConditions>"sXMLFilter=sXMLFilter+"<ConditionparamName='cDepCode'paramValue='"+EdtDeparment.Text+"'/>”sXMLFilter=sXMLFilter+"</RefConditions>"ElsesXMLFilter=""EndIfEndSubb)

54、方法二：離開部門編輯框時直接設置過濾參數PrivateSubEdtDeparment_LostFocus()DimsXMLFilterAsStringIfLen(EdtDeparment.Text)>0ThensXMLFilter="<RefConditions>"sXMLFilter=sXMLFilter+"<ConditionparamName='cDepCode'paramValue='"+EdtDeparment.Text+"'/>"sXMLFilter=sXMLF

55、ilter+"</RefConditions>"ElsesXMLFilter=""EndIfCallEdtPerson.SetFilterXML(sXMLFilter)EndSub注意：若同時設置條件，且響應消息設定條件，參照以最后一次條件為準,時，最后一次設置有效。示例程序見紅色框Endsub即設置條件FormlCommandlBaseOtheiRefType=ReftypesRelDa(eSetDateITextDetaultvalueReHipe=Reftype$.RefCalcubtorLjSetCalculatcxRefType=R

56、efTypesRefUsefBrowseU$印BrovmSetUefBrovyse,RefType-Retypes.RefFile示例3:對于參照、自定義、枚舉參照如何正確使用Text和DisplayText屬性對于設置RefType屬性設置為:RefArchive、RefUserDefine、RefEnumType,由于設置屬性Text和DisplayText可能存在相互干擾，控件按下列邏輯規則處理：偵置Text屬十UDisplayText專lDisale/Text-newValuerwwValue朽、TextCharsgeT：,'行m_AvtoDispiayTeift=?rue隹耘

57、Change寧妃是功宅：Chinfl»55|tilayText功二ChangeT:若在程序中兩個屬性同時設置操作順序建議如下:jisplayTextre：tUTnolTipTexl'ADisplayTewt空'、ZnewValueV.'：iSplHiLiTextnK罪DteplayTwt用一.(Jit.=J.:F二苧-.r.3,.t，j"tix.!-i-i-hitTLz-賽歐Text障Me.EdtArchive.AutoDisplayText=FalseMe.EdtArchive.Clear名稱”Me.EdtArchive.Text="00

58、1"Me.EdtArchive.DisplayText="示例4:如何直接使用參照服務有些特殊情況可以直接使用參照服務，其調用方式如下PrivateSubCmdShowRef_Click(lndexAsInteger)DimobjAsObjectSetobj=CreateObject("U8RefC.RefClient")DimvarAsObjectDimsXMLAsStringSelectCaseIndexCase0'完整參數傳入'refid:ID'imode:調用模式0：點擊參照按鈕1：輸入內容；2：參照甫值'bweb

59、:是否Web使用'filltext:填寫的內容'editvalue:控件的Text內容'filterxml:過濾的XML串'filtersql:過濾的Sql'parammeta:參數歹U'languageid:語言Id:0:中文簡體；1:中文繁體；2：英文'edthwnd:控件的Hwnd值sXML="<refclient>"&vbCrLf&"<refid>"+CmdRefIDClient.Text+"</refid>"&

60、vbCrLf&_"<imode>0</imode>"&vbCrLf&_"<bweb>0</bweb>"&vbCrLf&"<filltext>"+EdtShowRef(Index).Text+"</filltext>"&vbCrLf&"<editvalue></editvalue>"&vbCrLf&"<filterx

61、ml></filterxml>"&vbCrLf&_"<filtersql></filtersql>"&vbCrLf&_"<parammeta></parammeta>"&vbCrLf&_"<languageid>0</languageid>"&_"<edthwnd>"+CStr(EdtShowRef(Index).hwnd)+"</edthwnd>"&"<rememberlastrst>0</rememberlastrst>"&vbCrLf&_"</refclient>Case1'簡約參數傳入，其他默認sXML="<refclient>"&vbCrLf&"<refid>&