列标题为2010-05-10 00:00:00格式

希望实现以下效果：如果此日期是星期日，那么用蓝颜色设置当前列内容的背景

老大请看这样写代码对吗，如果对，那么符合条件列的背景颜色如何用代码设置(*号部分)？

for each ca as col in CurrentTable.Cols
    if left(ca.caption,10).DayOfWeek=0 then
        *****************
    end if
next

此主题相关图片如下：snap1.jpg

报错，老大看一下哪错了。看提示6月3日没什么问题啊！

\'窗口加载时的代码
DataTables("mail_table1").AddUserStyle("a", Color.blue, Color.yellow)

以下是窗口中table表的drawcell事件

\'如果是数值型列，且不是分类码列
If e.Col.IsNumeric AndAlso e.Col.caption <> "分类码" AndAlso e.Col.caption <> "分类名称" Then
    If e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容
dim ca as string
dim cb as integer
dim cc as date
ca=left(e.Row(e.Col.caption),10)
cc=ca
cb=cc.DayOfWeek
        If cb=0 Then \'如果该列的值等于0
            e.Style = "a" \'那么用"不及格"样式绘制单元格
        End If
    End If
End If

你根据错误提示分析一下吧，错误提示的意思是，你将“2010-06-03  00:00:00”这样的字符当做列名使用了。

老大，帮帮忙吧，真没找出问题来呀

left(e.Row(e.Col.caption),10)

已经设置显示成“2010-06-03”样式了

没有这样的用法：

e.Row(e.Col.caption)

只有这样的用法：

e.Row(e.Col.Name)

我已经告诉你了啊

ca=left(e.Row(e.Col.caption),10)

应该改为：

ca=left(e.Row(e.Col.Name),10)

因为要引用某行某列的值，应该通过列名(Name)，而不是标题(Caption)