Function BillDefaultTemplate(Windowid)
strsql1="select isdefault from pub_p_template where windowid='"&windowid&"'"
set rd=DataAcess.getrecordlist2(strsql1)
dim j
while not rd.eof
if rd.field(0).value=1 then
StrSql="Select * from Pub_p_templated where Templateid in (Select templateid from Pub_P_template where isdefault=1 Windowid='"&windowid&"') order by sequence"
我想在这里加结束循环的语句，该怎么加？？？
else
StrSql="Select * from Pub_p_templated where Templateid in (Select templateid from Pub_P_template where issystem=1 Windowid='"&windowid&"') order by sequence"
end if
rd.movenext
end while
Set BillDefaultTemplate=DataAccess.GetRecordlist2(Strsql)

End Function

exit while

不行，提示缺少 function

好的，我先试试！！

Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

C:\INETPUB\IDUSOFT\易读供应链\SALES\../include/TemplateMgt_Info.asp，行383

End Function

不行！！
和以前一样

给BillDefaultTemplate一个值再结束

嗯，用exit function 可以，但是 exit while 就不行啦

exit function前要给function一个值 例如BillDefaultTemplate="错误"

while not rd.eof
if rd.fields(0).value=1 then

StrSql="Select * from Pub_p_templated where Templateid in (Select templateid from Pub_P_template where Bdisplay<>0 and IsDefault=1 and Windowid='"&windowid&"') order by sequence"
'rd.movelast
Set BillDefaultTemplate=DataAccess.GetRecordlist2(Strsql)
exit while
else
StrSql="Select * from Pub_p_templated where Templateid in (Select templateid from Pub_P_template where ISSYSTEM='1' and Windowid='"&windowid&"') order by sequence"
rd.movenext
end if
rd.movenext
wend
Set BillDefaultTemplate=DataAccess.GetRecordlist2(Strsql)

End Function

用exit while :版主你的意思是这样写吗？？

错啦，用exit function可这样实现。
如果非要用退出循环，有没有什么好办法？？