用VBSCRIPT写的可增加表单行,可以用Javascript来控制新增加的表单的VALUE吗?
hai13 2005-10-18 02:21:44
控制的语句我是这么写的。
function jjselect(numm){
document.form1.jj[numm].name.value=k[0] //numm为jjselect函数传回来的行
document.form1.jxid[numm].name.value=k[1]+"-"+k[2] //需要机型与件号用"-"连起来
document.form1.jjh[numm].name.value=k[3]
document.form1.name[numm].name.value=k[4]
}
是不是可以控制的?我试了怎么不行啊?是不是我的代码写错了。
<script language="VBScript">-----------------------------以下是自动添加表单代码。
NowFileInputNo = 1
NowFileInputCount = 0
Sub AddFileInput()
If NowFileInputCount < 1000 Then
--------------------------------------------以下为我手动需要增加的行表单
HTMLSrc = "<table Id=FileInput"& NowFileInputNo &"> <tr><td> <input type=""text"" name=""jj"&NowFileInputNo&""" id=""jj"&NowFileInputNo&""" size=""18"" onclick=""jjselect('"&NowFileInputNo&"')"" readonly style=""background='#DFDFDF'""></td><input name=""jjhid"& NowFileInputNo &""" id=""jjhid"& NowFileInputNo &""" type=""hidden"" value=""""><td> <input type=""text"" name=""name"&NowFileInputNo&""" id=""name"&NowFileInputNo&""" size=""20"" readonly style=""background='#DFDFDF'""></td><td> <input type=""text"" name=""danjia"&NowFileInputNo&""" id=""danjia"&NowFileInputNo&""" size=""8""></td><td><input type=""text"" name=""sl"&NowFileInputNo&""" id=""sl"&NowFileInputNo&""" size=""8""></td><td><input type=""text"" name=""ine"&NowFileInputNo&""" id=""ine"&NowFileInputNo&""" size=""12""></td><td><input type=""text"" name=""memo"&NowFileInputNo&""" id=""memo"&NowFileInputNo&""" size=""22""></td>"
HTMLSrc = HTMLSrc&"<td><input type=button value=删除 class=cbutton OnClick=""DelFileInput("& NowFileInputNo &")"">"& NowFileInputNo &"</td></tr></table>"& vbcrlf
------------------------------------------以上为我手动需要增加的行表单
document.all.add_line.InsertAdjacentHTML "beforeBegin", HTMLSrc
NowFileInputNo = NowFileInputNo + 1
NowFileInputCount = NowFileInputCount + 1
Else
Alert "增加太多记录行"
End IF
End Sub
Sub DelFileInput(tableno)
document.all("FileInput"& tableno).outerHTML = ""
NowFileInputCount = NowFileInputCount - 1
End Sub
</script>