请教一个关于过程的问题。

fatmingli

下面的代码运行时，当Text39满足条件时，系统只运行ALL,而没有在运行完ALL后继续运行
AReport或BReport或CReport
请问为什么？如何解决？
Option Compare Database
Private Sub 导出_Click()
。。。。。
If Text39 = "1" Then
   All
   AReport
ElseIf Text39 = "2" Then
   All
   BReport
ElseIf Text39 = "3" Then
   All
   CReport
End If
End Sub
Sub All()
。。。
End Sub
Sub AReport()
。。。
End Sub
Sub BReport()
。。。
End Sub
Sub CReport()
。。。
End Sub

[此贴子已经被作者于2003-8-5 17:13:31编辑过]

chenghai

引用外部的过程后还要返回，可能需要用函数，如call，你查查帮助看（好像记得是call，但没测试过）。

fatmingli

我将ALL修改，还是不行
Sub All()
。。。
Exit Sub
End Sub

lijiawy

用逐语句测试一下，可能all过程代码中有语句直接跳出了

fatmingli

我试过，
call All
Call AReport
但也是只运行ALL，不运行AReort，是不是运行完ALL后，程序无法返回“导出”事件，以致无法继续AReort？

fatmingli

我试过作如下修改，系统也是只运行过程ALL,而没有在运行完ALL后返回原来事件继续运行MsgBox
请问为什么？如何解决？
Option Compare Database
Private Sub 导出_Click()
。。。。。

   All

   MsgBox "123"

End Sub

lijiawy

那你把all过程的代码贴出来看看罗

herdsboy

text39为什么要判断1，2，3？
你考虑过用户输入其他如a,b,c的可能吗？
建议改为选项组，列表框或者组合框再用
select case
试试？
真的要用文本框
改为trim(Text39)= "1"
或text39=1试试？

herdsboy

当然了，你的情况很有可能是all()有问题，何不贴上来看看？