主题：表格中有一个单元格是空的怎么样单击一个按纽让单元格显示为红色

If e.DataCol.name = "数量"
    For Each cl As Col In CurrentTable.Cols
        Dim r As Integer = Tables("表A").FindRow(e.DataRow)+1
        If e.DataRow("数量") < 60
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.Red,r)
        ElseIf e.DataRow("数量") > 85
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.Green,r)
        Else
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.White,r)
        End If
    Next
End If