以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在段代码中先加载外部表数据再筛选表会闪烁？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56946)
--  作者：kgdce
--  发布时间：2014/9/15 19:50:00
--  在段代码中先加载外部表数据再筛选表会闪烁？

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

    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

 

如何解决？
--  作者：有点甜
--  发布时间：2014/9/15 19:53:00
--  

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

 
--  作者：kgdce
--  发布时间：2014/9/16 18:51:00
--  

执行追载代码后仍然会闪，不执行追载代码就不闪，现在仍然存在问题，请求帮助。
--  作者：有点甜
--  发布时间：2014/9/16 19:41:00
--  
 应该是不会的，你做个简单的闪的例子发上来测试