<script language="vbscript" >
sub select1_onclick
if dispose_demand.MAJOR_IDEA.value="" and dispose_demand.APPLY_TIME_start.value="" and dispose_demand.APPLY_TIME_end.value="" and dispose_demand.WISH_FINISH_TIME_start.value="" and dispose_demand.WISH_FINISH_TIME_end.value="" and dispose_demand.IT_UNDERTAKER.value="" and dispose_demand.PHASE.value="" then
MsgBox "查询条件不能为空，至少需要输入一个查询条件!",78,"需求单系统查询"
dispose_demand.MAJOR_IDEA.focus
dispose_demand.APPLY_TIME_start.focus
dispose_demand.APPLY_TIME_end.focus
dispose_demand.WISH_FINISH_TIME_start.focus
dispose_demand.WISH_FINISH_TIME_end.focus
dispose_demand.IT_UNDERTAKER.focus
dispose_demand.PHASE.focus
exit sub
end if

dispose_demand.flag.value="Q"
dispose_demand.submit
end sub
</script>

我这样这可以实现功能但是程序还是有些问题，能帮我看看这样是是不是对的？主要就是判断查询条件不能为空！

[此贴子已经被作者于2007-7-13 14:00:07编辑过]

一个页面只能让一个表单对象focus()

那我要判断这个页面上什么查询语句都没有输入要怎么做呢？

问题已经解决，下面那样就可以实现了

<script language="vbscript" >
sub select1_onclick
if dispose_demand.MAJOR_IDEA.value="" and dispose_demand.APPLY_TIME_start.value="" and dispose_demand.APPLY_TIME_end.value="" and dispose_demand.WISH_FINISH_TIME_start.value="" and dispose_demand.WISH_FINISH_TIME_end.value="" and dispose_demand.IT_UNDERTAKER.value="" and dispose_demand.PHASE.value="" then
MsgBox "查询条件不能为空，至少需要输入一个查询条件!",78,"需求单系统查询"
dispose_demand.MAJOR_IDEA.focus

exit sub
end if

dispose_demand.flag.value="Q"
dispose_demand.submit
end sub
</script>