主题：如何绘制符合条件的整个列

DataTables("网络总课表").AddUserStyle("草绿蓝", Color.GreenYellow, Color.DarkBlue )

DataTables("网络总课表").AddUserStyle("灰蓝", Color.Gainsboro, Color.Blue)

Dim r As Row = Tables("网络教师课务明细表").current

Dim z1() As String = { "周1_1","周1_2","周1_3","周1_4","周1_5","周1_6","周1_7","周2_1","周2_2","周2_3","周2_4","周2_5","周2_6","周2_7","周3_1","周3_2","周3_3","周3_4","周3_5","周3_6","周3_7","周4_1","周4_2","周4_3","周4_4","周4_5","周4_6","周4_7","周5_1","周5_2","周5_3","周5_4","周5_5","周5_6","周5_7" }

If array.indexof(z1, e.Col.name) >= 0 Then
    For Each nr As Row In e.Table.rows
        If  nr("年级") = r("年级") And nr("班级") = r("班级") Then
            If nr(e.Col.name) = r("学科") Then
                e.Style = "灰蓝"

                exit for
            End If
        End If
    next
end if

If  e.Row("年级") = r("年级") And e.Row("班级") = r("班级") Then
    If e.Row(e.Col.name) = r("学科") Then
        e.Style = "草绿蓝"
    End If 
End If

不判断也可以，去掉这个判断也不会有错。

http://cache.baiducontent.com/c?m=9f65cb4a8c8507ed4fece7631049963045438014638c81552295ce1cd5735b36163bbca66f780704a594207a5ff4191cb9b07d6f675321bd9ac28949cabbe57b6eca6d203541c6171d8059ef980d32c151cb06bff853f0bb806fc7b9d2a280150596&p=907fde0d86cc42ae58b6c7710f409e&newp=92759a46d7c31dbe18be9b7c460886231610db2151d7d6166b82c825d7331b001c3bbfb423241506d9c37d6701a44b5aedf73672310221a3dda5c91d9fb4c57479d43674&user=baidu&fm=sc&query=array+indexof+msdn&qid=e4ca01da00016449&p1=1