drawcell 问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.Col.name

Case "D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15", "D16", "D17", "D18", "D19", "D20", "D21", "D22", "D23", "D24", "D25", "D26", "D27", "D28", "D29", "D30", "D31", "D32", "D33", "D34", "D35", "D36", "D37", "D38", "D39", "D40", "D41", "D42", "D43", "D44", "D45", "D46", "D47", "D48", "D49", "D50"

Dim ary() As String = {"D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15", "D16", "D17", "D18", "D19", "D20", "D21", "D22", "D23", "D24", "D25", "D26", "D27", "D28", "D29", "D30", "D31", "D32", "D33", "D34", "D35", "D36", "D37", "D38", "D39", "D40", "D41", "D42", "D43", "D44", "D45", "D46", "D47", "D48", "D49", "D50"}

If array.Indexof(ary, e.Col.name) >= 0 Then

For Each c As String In ary

If e.Row(c).contains("P") Then

e.Style = "橙底"

End If

If e.Row(c).contains("F") Then

e.Style = "绿底"

End If

End Select

上面 drawcell 里面的代码，我是希望含有P的列才是橙色，但是现在造成从D1 到 D50 的所有列都是橙色。请问要怎样修改才行呢？谢谢。

Select Case e.Col.name

Case "D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15"

For Each r As Row In Tables("模具项目进度").rows

Dim r1 As Row = Tables("模具项目进度").rows(r.index + 1)

If r("计划实际") = "月份" Then '找出月份那行

If r(e.Col.name) = "10" Then '如果某列的月份一行等于10

If r1(e.Col.name) = "1" Then '如果某列的日期一行等于1

e.Style = "红底白字"

End If

end select

上面代码我希望月份那行为10，在其下一行的日期为1的时候，1号这个日期就是红底白字。但是，运行结果是10月1日这列全列都是红底白字。请问要怎样修改代码？谢谢。

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

主题：drawcell 问题