主题：定位并设定样式

 建议直接标记出来就好了，不要太麻烦。drawcell事件写代码

 

If e.Col.name = "第六列" Then
    If e.text > "" AndAlso ValidPIN(e.text) = False Then
        e.Table.DataTable.AddUserStyle("样式1", color.red, Color.black)
        e.style = "样式1"
    End If
End If

 我测试并没有问题。贴出你drawcell事件写的完整代码。