如何让截图中的包括“日期”的列，显赫为日期格式？

或者用其他的方式也可以，但表格的格式不能变。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb

这是代码：

Dim t As Table=e.Form.controls("table1").Table
Dim b As New SQLCrossTableBuilder("统计表1","表A")
b.HGroups.AddDef("姓名") \'添加客户列用于水平分组
b.VGroups.AddDef("科目") \'添加产品列用于垂直分组,并设置了Pattern参数
b.Totals.AddDef("分数") \'添加数量列用于统计
b.Totals.AddDef("日期") \'添加数量列用于统计
b.Build \'生成统计表
t.datasource = DataTables("统计表1") \'打开生成的统计表

For Each c As col In t.cols
    For Each r As Row In t.Rows
        If c.name Like "*日期*"
            r(c)=Format(r(c),"yyyy-MM-dd")
        End If
    Next
Next

这是表结构

表A

日期() ----> 日期型

姓名() ----> 字符型(16)

分数() ----> 整数

这是数据

日期                姓名           分数             科目

2012-01-01    张三             1                  语文
2012-01-02      李四          2                 数学
2012-06-03      王五            3                英语