主题：[求助]标记颜色

If e.Row("InDate") > Date.Today.AddDays(-30) Then
     Dim dr As DataRow = DataTables("出库记录").find("工单号 = '" & e.Row("工单号") & "'")
    If  dr Is Nothing Then
        Dim cnt As Decimal = DataTables("纸张需求").Compute("Sum(用量)", "PaperName = '" & e.Row("PaperName") & "'")
        If cnt > e.Row("库存") Then
            e.Style = "缺料"
        End If
    End If