jacky789 发表于 2006-8-14 00:36:00

[讨论]重复执行

<P>为何程序在(1)及(2)处理完后都没有问题时也会跳去执行errstr:<BR>?????</P>
<P>'------------------------------------------------------<BR>'(1)<BR>Public Function vbal()<BR>dim ....<BR>If t=1 Then GoTo errstr&nbsp;&nbsp;&nbsp; '&lt;----此时t&lt;&gt;1继续执行下列<BR>...<BR>...<BR>rec&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '&lt;----跳至（2）处理在（2）程序里也处理ok<BR>errstr:<BR>ThisDrawing.Utility.Prompt vbCrLf &amp; "有错误状况!!" <BR>End Function<BR>'-----------------------------------------------------<BR>'(2)<BR>Public Function rec()<BR>dim...<BR>...<BR>...<BR>End Function<BR>----------------------------'在程序（2）无错误状况下处理完后也会返回（1）<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; '而执行errstr:语句!!!奇怪！！？？<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '不知道哪里还要修改一下？<BR>&nbsp;</P>

wyj7485 发表于 2006-8-14 09:37:00

If t&lt;&gt;1 Then '&lt;----此时t&lt;&gt;1继续执行下列<BR>...<BR>...<BR>rec&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '&lt;----跳至（2）处理在（2）程序里也处理ok<BR>else<BR>ThisDrawing.Utility.Prompt vbCrLf &amp; "有错误状况!!" <BR>end if

jacky789 发表于 2006-8-14 20:46:00

<P>因为在（1）中有很多下列相似处理错误语句</P>
<P>If t=1 Then GoTo errstr&nbsp;&nbsp;&nbsp; </P>
<P>所以采用：errstr</P>
<P>若改用if then else语句则要改一大片会乱掉...</P>
<P>所以想看有无较好的方法解决？？</P>

wyj7485 发表于 2006-8-15 08:19:00

正常运行后用exit sub退出

jacky789 发表于 2006-8-15 23:31:00

<P>这样似乎又偏离了！！</P>
页: [1]
查看完整版本: [讨论]重复执行