主题：在段代码中先加载外部表数据再筛选表会闪烁？

    在双击目录树节点时的代码

    Dim dr1 As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Dim Filter2 As String = "编号 = '" & dr1("编号") & "'"
    If  DataTables(biao).Find(Filter2) Is Nothing Then '如果对应的订单明细没有加载过
        DataTables(biao).AppendLoad(Filter2) '则追载此订单的订单明细
    End If
    Tables(biao).StopRedraw
    With Tables(biao)
        filter2 = Filter2 & "and [选择时间]>= #" & dtt1 & "# And [选择时间]<= #" & dtt2 & "#" 
        .Filter = Filter2 '设置加载条件  
    End With
    Tables(biao).ResumeRedraw

如何解决？

执行追载代码后仍然会闪，不执行追载代码就不闪，现在仍然存在问题，请求帮助。