主题：关于窗口控件闪烁问题

这个窗口的闪烁，应该是新增行从最底下一步步移到最上面的时候，引起的闪烁

取决于你的排序列啊

 

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 = "_Identify DESC"

        Tables("维修单").Position = Tables("维修单").FindRow(e.Datarow)
     '   DataTables("维修单").ResumeRedraw()
        For Each key As String In dic.Keys
            Forms("维修登记单").Controls(key).BindingField = dic(key)
        Next
        Forms("维修登记单").ResumeRedraw
    End If
    'UnLockBaseMainForm() '解锁主界面
End If

       

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

首先，先感谢大红袍老师这么晚为我们这些初学者解答疑问，不过我这里按照您的代码修改，运行后，新增加的行跑到最下面去了，不知道什么原因，再新增加个行，那个刚刚增加的行会跑到最上面，都是会出现个问题，最上面的行，和下面以前是数据行日期时间刚好是一个最新，一个最早，要重新加载项目，才正常，这个图片，一个是最上面的截图，一个是最下面的截图
此主题相关图片如下：图片20150608205753.png



此主题相关图片如下：图片20150608205838.jpg

 看13楼例子

谢谢