Domino下拉框的二级联动菜单.docxVIP

下拉框的二级联动菜单首先有两个联动菜单，如下图：我们现在要根据SampleType的值来改变SampleName的值。我们先看一下视图的结构我们通过ajax从后台获取xml，然后放到SampleName里面：当SampleType的值改变时我们调用addSampleNamebyajax方法：Javascript：//通过ajax动态加载样品名称function addSampleNamebyajax(samplevalue){try{var uri = ;uri = SampleType= + samplevalue + ids= + Math.random();var loader = dhtmlxAjax.getSync(计算的值Agent_getSapmleNameByAjax?OpenAgent + uri);cResponseSampleName(loader);}catch(err){alert(err.description);}}//回调函数function cResponseSampleName(loader){try{if(loader.xmlDoc.responseXML != null){//清除数据document.getElementById(SampleName).options.length = 1;//获取ajax的xml数据var xmlDoc = loadXMLDoc(loader.xmlDoc.responseXML);var temp = xmlDoc.getElementsByTagName(cell);for(i=0;itemp.length;i++){tempStr = temp[i].childNodes[0].nodeValueoption = new Option(tempStr,tempStr)document.getElementById(SampleName).add(option);}}}catch(err){alert(err.description)}}function loadXMLDoc(dname){try{xmlDoc=new ActiveXObject(Microsoft.XMLDOM);}catch(e){try{xmlDoc=document.implementation.createDocument(,,null);}catch(e){alert(e.message)}}try {xmlDoc.async=false;xmlDoc.load(dname);return(xmlDoc);}catch(e) {alert(e.message)}return(null);}Lotusscript：Sub InitializeMsgbox -----------------------On Error Goto handleDim session As New NotesSessionDim curdoc As NotesDocumentDim inputStr As StringDim view As NotesViewDim curdb As NotesDatabaseDim tempdoc As NotesDocumentDim dc As NotesDocumentCollectionDim SampleName As StringDim ouputStr As StringSet curdb = session.CurrentDatabaseSet curdoc = session.DocumentContextinputStr = curdoc.GetItemValue(Query_String_Decoded)(0)inputStr = GetParameter(SampleType,curdoc.GetItemValue(Query_String_Decoded)(0))Msgbox inputStrSet view = curdb.GetView(View_znnysc_SampleType)Set dc = view.GetAllDocumentsByKey(inputStr + | + inputStr,True)Msgbox dc.CountSet tempdoc = dc.GetFirstDocumentoutputStr = {row}While Not tempdoc Is NothingSampleName = tempdoc.SampleTypeName(0)outputStr = outputStr + {cell} + SampleName + {/cell}Msgbox SampleNameSet tempdoc