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
加好友 
发短信
Post By：2013/9/14 10:34:00 [只看该作者]
