主题：[求助]后台控制单元格背景色及字体颜色

比如：

dim dr as datarow = datatables("后台表").find("表名='" & e.table.name & "' and 列名='" & e.col.name & "' and 停用=false")

if dr isnot nothing then

 e.table.DataTable.AddUserStyle(e.table.name & e.col.name, Color.FromARGB(dr("单元格颜色")), Color.FromARGB(dr("字体颜色")))

end if

Dim dr As DataRow = DataTables("后台表").find("表名='" & e.Table.name & "' and 列名='" & e.Col.name & "'  and 列值='" & e.Row(e.Col.name)  & "' And  停用=false") 

If dr IsNot Nothing AndAlso e.Col.name = dr("列名") AndAlso e.Row(e.Col.name)  = dr("列值") Then 

'If dr IsNot Nothing AndAlso e.Col.name = dr("列名") Then

'If e.Col.name = dr("列名") Then

    If dr IsNot Nothing Then

dim s as string = e.Table.name & e.Col.name & dr("列值")

        e.Table.DataTable.AddUserStyle(s, Color.FromARGB(dr("单元格颜色")), Color.FromARGB(dr("字体颜色")))

        e.style =s

    End If

End If

2、drawcell比较特殊，如果使用了表事件，全局表事件就无效。如果要使用全局drawcell表事件，必须去掉单个表属性里面的drawcell代码，全部去掉，注释都不能保留