Domino下拉框的二級(jí)聯(lián)動(dòng)菜單

1、下拉框的二級(jí)聯(lián)動(dòng)菜單首先有兩個(gè)聯(lián)動(dòng)菜單，如下圖：ela2s=35S">廠寸Vfti>class=，v3536*>FSajwlcWaTveR</td>我們現(xiàn)在要根據(jù)SampleType的值來改變SampleName的值。我們先看一下視圖的結(jié)構(gòu)(9狛WU占上訃plihg.ru上計(jì)駅甲*_齟“I1|uidEmhih1輕詁幾乎血狂p弄幾fjs扛璉1316U3犯弭Cja&O(胖從應(yīng)爭曲FDTES0(JHHEKJUlED20LlDd204tE8DB3256?0JO-U1DZDL1K33JLE3311234BGTM0-123rS7»D-«U

2、1DZC41I>C4O7&BQ«L61-530QJ'E7654H我們通過ajax從后臺(tái)獲取xml，然后放到SampleName里面：當(dāng)SampleType的值改變時(shí)我們調(diào)用addSampleNamebyajax方法:Javascript:/通過ajax動(dòng)態(tài)加載樣品名稱functionaddSampleNamebyajax(samplevalue)tryvaruri=""uri="&SampleType="+samplevalue+"&ids="+Math.random();varload

3、er=dhtmlxAjax.getSync("<計(jì)算的值A(chǔ)gent_getSapmleNameByAjax?OpenAgent"+uri);cResponseSampleName(loader);catch(err)alert(err.description);/回調(diào)函數(shù)functioncResponseSampleName(loader)tryif(!=null)/清除數(shù)據(jù)document.getElementById("SampleName").options.length=1;/獲取ajax的xml數(shù)據(jù)varxmlDoc=loadXMLDoc

4、(;vartemp=xmlDoc.getElementsByTagName("cell");for(i=0;i<temp.length;i+)tempStr=tempi.childNodes0.nodeValueoption=newOption(tempStr,tempStr)document.getElementById("SampleName").add(option);catch(err)alert(err.description)functionloadXMLDoc(dname)tryxmlDoc=newActiveXObject(&quo

5、t;Microsoft.XMLDOM");catch(e)tryxmlDoc="","",null);catch(e)alert(e.message)tryxmlDoc.async=false;xmlDoc.load(dname);return(xmlDoc);catch(e)alert(e.message)return(null);LOTUSSCRIPT:SubInitialize'Msgbox"”O(jiān)nErrorGotohandleDimsessionAsNewNotesSessionDimcurdocAsNotesDocu

6、mentDiminputStrAsStringDimviewAsNoteSViewDimcurdbAsNoteSDatabaseDIMTEMPDOCASNOTESDOCUMENTDimdcAsNoteSDocumentCollectionDimSampleNameAsStringDimouputStrasStringSetcurdb=session.CurrentDatabaseSetcurdoc=sessiondocumentContext'inputStr=curdoc.GetItemValue("QueryStringDecodeD')(0)INPUTSTRGe

7、tParameter("SampleTypE',curdoc.GetItemValue("QueryStringDecodeD')(0)'MSGBOXINPUTSTRSetview=curdb.GetView("ViewznnyscSampleTypE')SetDC=VIEW.GETALLDOCUMENTSBYKEY(INPUTSTR+"|"+inputstr.true)MSGBOXDC.COUNTSettempdoc=dc.GetFirstDocumentoutputStr=<ROW>WhileNo

8、ttempdocIsNothingSampleName=tempdoc.SampleTypEName(O)OUTPUTSTR=OUTPUTSTR+<CELL>+SAMPLENAME+</CELL>MsgboxSampleNameSettempdoc=dc.GetNextDocument(tempdoc)WendoutputStr=outputStr+</row>PrintContent-Type:text/xml:charset=utf-8PRINTOUTPUTSTREXitSubhandle:MSGBOXERL&ERROR$ExitSubEndSub最后：我們需要在SampleName的公式中加上頁面打開時(shí)獲取的值:±1as尸11|</十d&to.c.|ii3J=|.hpTarianjTjfflH：案孕邛ifinej.-re,i：.T-ninj'->flA9a：VIsh-=i></!i-爼dinj'->flA9a：VIsh-=i></!i-爼dla3s='35