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

写了一段drawcell事件的代码，不但写法错了，而且执行后的结果和想象中的不同，因为初写，敬请老师修改！

DataTables("网络职工信息修改").AddUserStyle("a", Color.Red, Color.White)

DataTables("网络职工信息修改").AddUserStyle("黄洋红", Color.Yellow, Color.Magenta )

DataTables("网络职工信息修改").AddUserStyle("淡青蓝", Color.LightCyan, Color.Navy )

DataTables("网络职工信息修改").AddUserStyle("金黄蓝", Color.Gold, Color.Navy )

DataTables("网络职工信息修改").AddUserStyle("浅黄蓝", Color.LightYellow, Color.Navy )

DataTables("网络职工信息修改").AddUserStyle("草绿蓝", Color.GreenYellow, Color.DarkBlue )

DataTables("网络职工信息修改").AddUserStyle("灰蓝", Color.Gainsboro, Color.Blue)

Dim r1, r2 As DataRow

r1 = DataTables("网络职工信息修改").find(" 排序 = 1 ")

r2 = DataTables("网络职工信息修改").find(" 排序 = 2 ")

If e.Row("排序") = 1 Then

e.style = "淡青蓝"

ElseIf e.Row("排序") = 2 Then

For Each dc As DataCol In DataTables("网络职工信息修改").DataCols

If r2(dc.name) <> r1(dc.name) Then

If r2("业务状态") = "等待提交" Then

e.style = "a"

ElseIf e.Row("业务状态") = "已经提交" Then

e.style = "金黄蓝"

ElseIf e.Row("业务状态") = "审核通过" Then

e.style = "草绿蓝"

End If

截图说明正确的结果和错误的结果分别是怎么样的？

下面的代码放到AfterOpenProject事件

DataTables("网络职工信息修改").AddUserStyle("a", Color.Red, Color.White)

DataTables("网络职工信息修改").AddUserStyle("黄洋红", Color.Yellow, Color.Magenta )

DataTables("网络职工信息修改").AddUserStyle("淡青蓝", Color.LightCyan, Color.Navy )

DataTables("网络职工信息修改").AddUserStyle("金黄蓝", Color.Gold, Color.Navy )

DataTables("网络职工信息修改").AddUserStyle("浅黄蓝", Color.LightYellow, Color.Navy )

DataTables("网络职工信息修改").AddUserStyle("草绿蓝", Color.GreenYellow, Color.DarkBlue )

DataTables("网络职工信息修改").AddUserStyle("灰蓝", Color.Gainsboro, Color.Blue)

你没有理解 drawcell 事件，此事件，是不断执行的，每次执行的时候，触发的是某一个单元格。

你要对单元格 e.row e.col 进行判断来写代码，也就是控制每一个单元格，而不是总体设置。

以下列这种情况为例 r2("业务状态") = "等待提交" Then

e.style = "a"

应该结果

排序姓名性别学历业务状态

1 张三男专科原始数据

2 张三男本科等待提交

实际结果

排序姓名性别学历业务状态

1 张三男专科原始数据

2 张三男本科等待提交

本意是第二行和第一行逐列对照，不同的数据就显示红色，结果整个一行都是红色

直接写

If e.Row.index Mod 2 = 1 Then
    Dim r1 As Row = e.Table.rows(e.Row.index-1)
    Dim r2 As Row = e.Row
    If r1(e.Col.name) <> r2(e.Col.name) Then
        e.Table.DataTable.AddUserStyle("不同", Color.red, Color.yellow)
        e.style = "不同"
    End If
End If

Select Case e.Col.Name

Case "学历","业务状态"

If e.Row("业务状态") = "等待提交" Then

e.Style = "a"

End If

End Select

主题：请教drawcell事件的写法