主题：帮忙看下这段代码

Select Case e.DataCol.Name
    Case "已阅"
        If e.NewValue = True Then '已阅列值为真
       e.DataRow.Style = "已阅"
    End If
    Case "是否有效"
       If e.NewValue = True Then '已阅列值为真
       e.DataRow.Style = "有效"
       Else
        e.DataRow.Style = "作废"
    Case "质检登记"
         If e.NewValue = True Then '已阅列值为真
       e.DataRow.Style = "有效"
End Select

这段代码放在表里怎么行不通？求解