如何在数据进行处理的时候，出现一个等待窗口，提示用户暂时等待，等到数据处理完毕后，在关闭该窗口？？？

Question

当记录比较多的时候，查询起来的速度就很慢，这是我想能够弹出一个无标题窗口，提示：正在处理数据请稍候... ...，如何让该窗口判断数据是否处理完毕？从而自动消失？比如判断所有要查询的数据都已经列了出来，可以关闭该窗口了。请帮忙。

Answer 1

For i = 1 To Tvw.Nodes.Count
    
    strKey = Tvw.Nodes(i).key
   '=========================================================================
   '修改人：wild             日期：2004年07月29日
   '说  明：不可这样，是不对称的，只能遍历每个节点
   '-------------------------------------------------------------------------
    
   '=========================================================================
'    If Left(strKey, 1) = "F" Then ''只遍历上半截，下半截是对称的
        
        FrmSlash.Label1.Caption = cTip & vbNewLine & "正在计算：" & Tvw.Nodes(i).Text & "费用超标情况…………"
        
        FrmSlash.Refresh''关键在这里，或者改成 doevents 就可以了
        
        GetStatisticWay strKey, strShipCode, strFeeCode, strTitle
        
'        Debug.Print i & "调用前------------"; Format(Now, "yyyy-mm-dd hh:mm:ss:ms")
        
        intCompare = CompareFee(mstrYear, strShipCode, strFeeCode, strNotFee, Me.CboSWay.ListIndex, , , intmonth)
        
'        Debug.Print i & "调用后------------"; Format(Now, "yyyy-mm-dd hh:mm:ss:ms")
        
'        If Len(strShipCode) <> 0 And Len(strFeeCode) <> 0 Then
'
'            strKey = "S" & strShipCode & "F" & strFeeCode ''颠倒这个key，下半截就出来了
'
'        End If        Select Case intCompare
        
            Case 0 ''正常的恢复其本来的颜色
                
                Tvw.Nodes(i).ForeColor = vbBlack
                
'                Tvw.Nodes(strKey).ForeColor = vbBlack
                
            Case 1                Tvw.Nodes(i).ForeColor = vbBlue ''总费用不超而某个月超了的
                
'                Tvw.Nodes(strKey).ForeColor = vbBlue            Case 2                Tvw.Nodes(i).ForeColor = vbRed ''总费用也超了的
                
'                Tvw.Nodes(strKey).ForeColor = vbRed        End Select
        
        If intCompare > 0 Then
              
            If Tvw.Nodes(i).Children > 0 Then
            
                Tvw.Nodes(i).EnsureVisible
            
            End If
            
        
        End If
        Next

Answer 2

写一个函数，比如
Sub BindGrid(oGrid as Object,byval SQL as String)

Answer 3

写一个函数，比如
Sub BindGrid(oGrid as Object,byval SQL as String)
dim rs as New RecordSet
ShowHint "正在处理数据请稍候... ..." '显示提示过程
DoEvents
Rs.open sql,cn,1,1
Set oGrid.RecordSource=Rs
Set Rs=Nothing
HideHint '消失提示过程
End Sub

Answer 4

同意 xldata(心蓝)的回答，我在一个软件中就是使用的DoEvents命令将线程转换到另一个窗口的，完全可以实现楼主的要求。

Answer 5

原理就是循环的时候让form上面的lable变化，用form的refresh强制刷新！！！！

Answer 6

doevents是作甚么的？我很少用。哪位帮忙说说。谢谢