主题：dawcell设置代码后，移动表滑条出现附件中问题

dawcell设置代码后，移动表滑条出现附件中问题：一块灰色的区域。如何避免啊

 

我的dawcell代码为：

 

If Forms("主窗口").Opened Then
   
    Dim ds As WinForm.RadioButton = Forms("主窗口").Controls("短色RadBtn")
    Dim zs As WinForm.RadioButton = Forms("主窗口").Controls("中色RadBtn")
    Dim cs As WinForm.RadioButton = Forms("主窗口").Controls("长色RadBtn")
   
    If e.Col.Name = "进度状态" AndAlso ds.Checked = True Then   '短色控制
       
        Select Case  e.Row("进度状态")
            '  Case "正常"
                '   e.Style = "正常" '那么用"正常"样式绘制单元格
            Case "警告"
                e.Style = "警告" '那么用"紧急"样式绘制单元格
            Case "特急"
                e.Style = "特急" '那么用"特急"样式绘制单元格
            Case "超急"
                e.Style = "超急" '那么用"超急"样式绘制单元格
               
            Case "迟到"
                e.Style = "迟到" '那么用"迟到"样式绘制单元格
            Case "断料"
                e.Style = "断料" '那么用"断料"样式绘制单元格
               
            Case "断料到"
                e.Style = "断料到" '那么用"断料到"样式绘制单元格
               
            Case "正常到"
                e.Style = "正常到"
               
            Case "急插单"
                e.Style = "急插单"
               
            Case "插单到"
                e.Style = "插单到"
               
               
        End Select
       
       
       
    End If
   
   
    If( e.Col.Name = "进度状态" OrElse e.Col.Name = "锁定" OrElse e.Col.Name = "OA申购单单号" OrElse e.Col.Name = "申购日期" OrElse e.Col.Name = "计划到货日" OrElse e.Col.Name = "实际到货日" OrElse e.Col.Name = "产品名称与型号规格"   ) AndAlso zs.Checked = True Then   '中色控制
   
    Select Case  e.Row("进度状态")
      '  Case "正常"
         '   e.Style = "正常" '那么用"正常"样式绘制单元格
        Case "警告"
            e.Style = "警告"

        Case "特急"
            e.Style = "特急"

        Case "超急"
            e.Style = "超急"             
        Case "迟到"
            e.Style = "迟到" 

        Case "断料"
            e.Style = "断料"             
        Case "断料到"
            e.Style = "断料到"             
        Case "正常到"
            e.Style = "正常到"
           
            Case "急插单"
                e.Style = "急插单"
               
            Case "插单到"
                e.Style = "插单到"
           
           
    End Select
   
   
   
End If

 

 

 

 

If cs.Checked = True Then '且该列已经输入内容  长色控制
    Select Case  e.Row("进度状态")
       ' Case "正常"
       '     e.Style = "正常" '那么用"正常"样式绘制单元格
        Case "警告"
            e.Style = "警告" '那么用"警告"样式绘制单元格
        Case "特急"
            e.Style = "特急" '那么用"特急"样式绘制单元格
        Case "超急"
            e.Style = "超急" '那么用"超急"样式绘制单元格
           
        Case "迟到"
            e.Style = "迟到" '那么用"迟到"样式绘制单元格
        Case "断料"
            e.Style = "断料" '那么用"断料"样式绘制单元格
           
        Case "断料到"
            e.Style = "断料到" '那么用"断料到"样式绘制单元格
           
        Case "正常到"
            e.Style = "正常到"
            Case "急插单"
                e.Style = "急插单"
               
            Case "插单到"
                e.Style = "插单到"
           
           
    End Select
   
End If

End If

 

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

这种情况,还请上个例子才能帮得上忙.

重新打开项目后，又没有这个问题了，这么奇怪，难道是电脑性能问题？我看看再说，问题再出现，那么例子上来。