写了一段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
End If
Next
End If
加好友 
发短信
Post By：2017/3/6 8:42:00 [显示全部帖子]
