- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问逻辑列和时间列如何用DRAWCELL标记 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20541)
-- 发布时间：2012/6/11 23:05:00
-- 请问逻辑列和时间列如何用DRAWCELL标记
详细：我想把
逻辑列 ：通过|不通过。我想给通过的标红色
时间列：与今日时间对比，少于7天的时间标，黄色。
-- 发布时间：2012/6/12 8:21:00
--
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
-- 发布时间：2012/6/12 11:59:00
--
请问：逻辑列：通过|不通过，如何标记呢。
通过的标红色，没通过的别的色
-- 发布时间：2012/6/12 13:12:00
--
如果你真的是逻辑列，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
-- 发布时间：2012/6/12 14:29:00
--
哦哦
-- 发布时间：2012/6/12 19:39:00
--
此主题相关图片如下：qq截图.png
-- 发布时间：2012/6/12 19:41:00
--
这段代码运行中出现了上述窗口的错误，不知是不是没有定义逻辑变量呢，请查看
-- 发布时间：2012/6/12 19:47:00
--
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
-- 发布时间：2012/6/12 23:47:00
--
正在学习，谢谢
-- 发布时间：2012/6/13 19:16:00
--
狐爸，代码运行中，帮偶诊断诊断
此主题相关图片如下：qq截图2.png