VB DataEnvironment

taskman

Unload DataEnvironment1
 Load DataEnvironment1
        'Call delay
    With DataEnvironment1
&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160;If .rsCommand1_Grouping.State <> adStateClosed Then
&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160;&#160;&#160;.rsCommand1_Grouping.Close
&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160; End If&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160;
&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160; .Command1_Grouping CStr(nom)
    &#160;&#160;&#160;&#160;End With

   If DataEnvironment1.rsCommand1_Grouping.RecordCount > 0 Then
&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160;DataReport1.Refresh
&#160; &#160;&#160; &#160;&#160; &#160;&#160; &#160;DataReport1.Show
End If

public function Delay()
        For i = 1 To 1000
            For j = 1 To 1000
                For k = 1 To 5
                Next k
            Next j
        Next i
End Function

为何DataEnvironment不能直接出现正确的report data（总是少一笔资料）?
为何当我加入Delay这个function后就能正确显示？？这是DataEnvironment的bugs 吗？？