主题：请问逻辑列和时间列如何用DRAWCELL标记

详细：我想把

逻辑列 ：通过|不通过。我想给通过的标红色

时间列：与今日时间对比，少于7天的时间标，黄色。

     

if e.col.name = "日期" then

    if e.text >""  then

        Dim dt As Date = e.Text

        Dim ts AS integer = (Date.today - dt).totalDays

        if ts > 7 Then

               e.Style= "样式1"

        else

               e.Style= "样式2"

        end if

    end if

Elseif e.col.name = "逻辑" then

      if r("逻辑") = True then
            e.Style= "样式3"

      else

            e.Style= "样式4"

      end if

end if

请问：逻辑列：通过|不通过，如何标记呢。

通过的标红色，没通过的别的色

如果你真的是逻辑列，2楼就是答案。

如果你所谓的逻辑列，是个字符型，那么：

 

If e.col.name = "日期" Then
    If e.text >""  Then
        Dim dt As Date = e.Text
        Dim ts As Integer = (Date.today - dt).totalDays
        If ts > 7 Then
               e.Style= "样式1"
        Else
               e.Style= "样式2"
        End If
    End If
ElseIf e.col.name = "逻辑" Then
      If r("逻辑") = "通过" Then
            e.Style= "样式3"
      Else
            e.Style= "样式4"
      End If
End If

哦哦

这段代码运行中出现了上述窗口的错误，不知是不是没有定义逻辑变量呢，请查看

If e.col.name = "日期" Then
    If e.text >""  Then
        Dim dt As Date = e.Text
        Dim ts As Integer = (Date.today - dt).totalDays
        If ts > 7 Then
               e.Style= "样式1"
        Else
               e.Style= "样式2"
        End If
    End If
ElseIf e.col.name = "逻辑" Then
      If e.Row("逻辑") = "通过" Then
            e.Style= "样式3"
      Else
            e.Style= "样式4"
      End If
End If

正在学习，谢谢

狐爸，代码运行中，帮偶诊断诊断
此主题相关图片如下：qq截图2.png