请教如何知道等待调用完毕

柠檬　发表于：2010-11-22 13:04:56 　

    Dim rs As New ADODB.Recordset, i, n, sl As Long
    rs.Open "SELECT * FROM 用户列表 where 消费=-1;", _
            CurrentProject.Connection, adOpenStatic, adLockReadOnly
    If rs.EOF = False Then
        For i = 1 To rs.RecordCount
            call zxcz

            rs.MoveNext
            Savetime = timeGetTime    '记下开始时的时间
            While timeGetTime < Savetime + 20000    '循环等待10秒
                DoEvents    '转让控制权，以便让操作系统处理其它的事件。
            Wend

Next i

    End If
    rs.Close
    Set rs = Nothing

读取一条记录,call 一下函数，我现在是用等待时间来做，我想知道怎么样才能知道，call 的函数已执行完毕,让他继续执行，儿不用等待？

Top

羽扇子君发表于：2010-11-22 16:12:06

在函数Zxcz 中写入代码 DoEvents 即可。

交给系统控制权的同时，却不能给用户控制权；因此，如果代码执行操作的时间很长超过壹分钟时，最好再打开一个模式窗体，以保证期间用户不能再进行（单击按钮等）其它操作。

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

请教如何知道等待调用完毕