.net中申請單動態添加實現方法及代碼[3]

set ocell=orowinsertcell
ocellclassname=ListCellRow
ocellinnerhtml=<input type=button value=刪除 onClick=vbscript:bdel( & lcountmx & ) id=button name=button>
ocellalign=center

documentapplicationsFormypslvalue = lcountmx
end function

function bdel(l)
tabzxdeleteRow documentgetElementById(trzx & l)rowindex
end function

function changeFun(obj)
change obj
end function

function changeFun(obj)
change obj
end function
</script>

　　選擇設備頁面的調用代碼如下

<SCRIPT LANGUAGE=vbscript>

　　選擇多種用品並返回到主頁面

function doOk(sFlag)
Dim StrIDmnewStrIDiinewStrID_
StrID=
for each m in FormEditelements
IF mtype=checkbox then
if mchecked and mname <> selectAllCheck then

if StrID = then
StrID= mvalue
else
StrID=StrID & & mvalue
end if
end if
END IF
NEXT

IF StrID<> THEN
newStrID = Split(StrID)
for ii= to ubound(newStrID)
newStrID(ii) = replace(newStrID(ii)()
newStrID_ = Split(newStrID(ii))
windowopenerbadd newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()newStrID_()
next
if sFlag then
windowclose
end if
else
msgbox 您沒有選擇任何用品！ vbExclamation提示
exit function
END IF
End function
</SCRIPT>

[]  []  []  

From:http://tw.wingwit.com/Article/program/net/201311/15114.html