主题：用什么动作来筛选出全部红色 或全部黄色的数据？谢谢

    If e.Row.IsNull("到期日期") = False
        If e.Row("到期日期") < Date.Today.AddDays(10) Then
            e.Style = "到期"
        End If
    End If
End If

还有，未到期提醒，分别用 红底白字 和 黄底白字 显示

我想实现的是 ： 用什么动作来筛选出全部红色 或全部黄色的数据？谢谢