我制作了个窗口，里面的多个文本框控件绑定到了表A的数据，现在我在项目属性-（Initialize）事件里对表A的（日期）加载了个降序代码，我在表A的属性-（增加行）里加入了自动输入时间代码，在表A属性-（数据-DataColChanged）里又加载了个对表A（日期）的降序， 使表A的数据最新的显示在最上面。

 现我在窗口里按增加行按钮，控件里面，就会闪烁，我按照说明帮助里的“解决屏幕闪烁的终极方法”更改如下（是在DataColChanged事件里修改），没有效果，不知道是哪里出了问题，或者老师们能给我个好的方案解决我的问题，谢谢！！！！！！！

Forms("窗口").StopRedraw() \'停止绘制窗口
DataTables("表A").StopRedraw()
Tables("表A").Sort = "日期 DESC"

DataTables("表A").ResumeRedraw()
Forms("窗口").ReseumeRedraw() \'停止绘制窗口

 上传具体的项目，或简单的例子

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

If e.DataCol.Name = "修好日期" Then \'如果更改的修好日期
    If e.DataRow.IsNull("修好日期") Then \'修好日期是否为空
        e.DataRow("是否修好") = False \'如果为空,则否
    Else \'否则
        e.DataRow("是否修好") = True \' 则是
    End If
ElseIf e.DataCol.Name = "取走日期" Then \'如果更改的取走日期
    If e.DataRow.IsNull("取走日期") Then \'修好日期是否为空
        e.DataRow("以取走") = False \'如果为空,则否
    Else \'否则
        e.DataRow("以取走") = True \' 则是
    End If
ElseIf e.DataCol.Name = "送修日期" Then
    \'LockBaseMainForm() \'锁定主界面
    If Forms("维修登记单").Opened Then
        Dim dic As new Dictionary(Of String, String)
        For Each c As WinForm.Control In Forms("维修登记单").Controls
            If c.BindingField > "" Then
                dic.Add(c.Name, c.BindingField)
                c.BindingField = ""
            End If
        Next
        Forms("维修登记单").StopRedraw
     \'   DataTables("维修单").StopRedraw()
        Tables("维修单").Sort = "送修日期 DESC"
     \'   DataTables("维修单").ResumeRedraw()
        For Each key As String In dic.Keys
            Forms("维修登记单").Controls(key).BindingField = dic(key)
        Next
        Forms("维修登记单").ResumeRedraw
    End If
    \'UnLockBaseMainForm() \'解锁主界面
End If