主题：满足条件，就执行样式

If e.Row.IsNull("日期") = False Then
   
    Dim d As Date = e.Row("日期")
   
    If d.DayOfWeek = 0 OrElse d.DayOfWeek = 6 Then
        e.style = "样式1"
    End If
   
End If