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

End If

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