如何实现申请单的动态添加（WEB页面）

 一个申请单可以包含N个项目，添加申请单时就需要动态加入代码了。

动态Table表格

<table border="0" width="98%" id="tabzx" name="tabzx" align="center"
    class="table_list">
    <tr>
     <td class="th_list" width="10%">
      A列
     </td>
     <td class="th_list" width="10%" align="center">
      B列     </td>
     <td class="th_list" width="10%" align="center">
      C列
     </td>
     <td class="th_list" width="5%" align="center">
      D列
     </td>
     <td class="th_list" width="5%" align="center">
      E列
     </td>
     <td class="th_list" width="5%" align="center">
     F列
     </td><%--
     <td class="th_list" width="7%" align="center">
      G列
     </td>

     --%><td class="th_list" width="13%">
      [
      <a href="javascript:doSelect(450,400,'formEdit.supplyId')"><font
       color="FF0000">选择设备</font> </a>]
     </td>
    </tr>
   </table>

 

JS代码如下（根据条件弹出设备列表，然后选择已有设备）

 function doSelect(Width,Height,ctrlobj){
    
     var k;
     var s = new Object(); 
     k=showModalDialog("/Applications_add_addsearch.jsp",s,"dialogWidth:320px;status:no;scroll:no;dialogHeight:280px");
     if (k!=null)
     {
         var url = "/applicationsAction.do?method=insertAddSeach&stId="+k[0]+"&sbId="+k[1]+"&ggId="+k[2];
         window.open(url,'newwindow', 'height=600, width=800, toolbar=no, menubar=no, scrollbars=yes, resizable=no,location=no, status=no');
     }

 }

=========================

根据选择动态添加数据代码

 

<script language="vbscript">
dim lcountmx
lcountmx = 0
function badd(stid,stName,vcid,vcName,ggid,ggName,dwei,sliang,djia)
                lcountmx=lcountmx+1
  dim oRow,oCell,ii
  set oRow=tabzx.insertRow
  orow.id="trzx" & lcountmx
                set ocell=orow.insertcell
  dim sss
        sss="<input type=hidden name=cgdjmx"& lcountmx & " value="""">"
  sss=sss&"<input type=hidden name=stid"& lcountmx & " value=" &  stid & ">"
  sss=sss&"<input type=hidden name=stName"& lcountmx & " value=" &  stName & ">"
        sss=sss&"<input type=hidden name=vcid"& lcountmx & " value=" &  vcid & ">"
  sss=sss&"<input type=hidden name=ggid"& lcountmx & " value=" &  ggid & ">"       
  sss=sss&stName
  ocell.innerhtml= sss
  ocell.classname="ListCellRow"

  set ocell=orow.insertcell
  ocell.classname="ListCellRow"
  ocell.align="center"
  ocell.width="60"
  ocell.innerhtml="<input type=hidden name=vcName" & lcountmx & " value=" &  vcName & ">"& vcName

  set ocell=orow.insertcell
  ocell.classname="ListCellRow"
  ocell.align="center"
  ocell.width="60"
  ocell.innerhtml="<input type=hidden name=ggName" & lcountmx & " value=" &  ggName & ">"& ggName

  set ocell=orow.insertcell
  ocell.classname="ListCellRow"
  ocell.align="center"
  ocell.width="60"
  ocell.innerhtml="<input type=text size=10 name=thao" & lcountmx & " value=''>"

  set ocell=orow.insertcell
  ocell.classname="ListCellRow"
  ocell.align="center"
  ocell.width="60"
  ocell.innerhtml="<input type=hidden name=dwei" & lcountmx & " value=" &  dwei & ">"& dwei

  set ocell=orow.insertcell
  ocell.classname="ListCellRow"
  ocell.align="center"
  ocell.width="60"
  ocell.innerhtml="<input type=text size=3 name=sliang" & lcountmx & " οnchange='changeFun(" & lcountmx & ")' value=''>"
<%--
  set ocell=orow.insertcell
  ocell.classname="ListCellRow"
  ocell.align="center"
  ocell.width="60"
  ocell.innerhtml="<input type=text size=3  name=djia" & lcountmx & " οnchange='changeFun1(" & lcountmx & ")'  value=''>"
--%>
  

    set ocell=orow.insertcell
    ocell.classname="ListCellRow"
    ocell.innerhtml="<input type='button' value='删除' onClick='vbscript:bdel(" & lcountmx & ")' id=button7 name=button7>"
    ocell.align="center"

    document.applicationsForm.ypsl.value = lcountmx
 end function

 function bdel(l)
  tabzx.deleteRow document.getElementById("trzx" & l).rowindex
 end function

 function changeFun(obj1)
  change obj1
 end function

 function changeFun1(obj1)
  change1 obj1
 end function
</script>

 

====================

选择设备页面的调用代码如下

<SCRIPT LANGUAGE=vbscript>

'选择多种用品并返回到主页面
function doOk(sFlag)
  Dim StrID,m,newStrID,ii,newStrID_1
 StrID=""     
 for each m in FormEdit.elements
  IF m.type="checkbox"  then
   if m.checked and m.name <> "selectAllCheck" then
    if StrID = "" then     
     StrID= m.value
    else
     StrID=StrID &  ","  &  m.value
    end if
   end if
  END IF     
 NEXT     

IF StrID<>"" THEN
  newStrID = Split(StrID,",")
    for ii=0 to ubound(newStrID)
   newStrID(ii) = replace(newStrID(ii),"(",",")
   newStrID_1 = Split(newStrID(ii),",")
   window.opener.badd newStrID_1(0),newStrID_1(1),newStrID_1(2),newStrID_1(3),newStrID_1(4),newStrID_1(5),newStrID_1(6),newStrID_1(7),newStrID_1(8)  
  next
 if sFlag then
   window.close
 end if
else
  msgbox "您没有选择任何用品！" ,vbExclamation,"提示"
  exit function
END IF     
End function     
</SCRIPT>