参数传递无法获的文本焦点

[csharp5460]

sub NumChange(rowid)
theform=eval("document.form1."+rowid)
num=eval("document.form1."+rowid+".value")
if num mod 2 <> 0 then
msgbox("请输入偶数！")
theform.focus
window.event.returnvalue=false
end if
end sub

这样为什么无法获的焦点

[Siramizu]

如果没有别的错误，应该是
eval("theform=document.form1."+rowid)

[csharp5460]

eval("theform=document.form1."+rowid) 这样写应该也不对

[碧海情天-赵亮]

<script language=vbscript>
sub NumChange(theobj)
num=theobj.value
if num mod 2 <> 0 then
msgbox("请输入偶数！")
theobj.focus
window.event.returnvalue=false
end if
end sub
</script>
<form id=form1 name=form1>
<input id=hehe name==hehe>
<input type=button onclick="VBScript:NumChange(form1.hehe)">
</form>