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

Tables(biao).DataTable.StopRedraw
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

With Tables(biao)
    filter2 = Filter2 & "and [选择时间]>= #" & dtt1 & "# And [选择时间]<= #" & dtt2 & "#"
    .Filter = Filter2 '设置加载条件
End With
Tables(biao).DataTable.ResumeRedraw