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

 例子发上来看看。

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

 

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

取决于你的排序列啊

 

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

 看13楼例子