主题：如何显示日期格式

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

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

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

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

此主题相关图片如下：未命名.gif

这是代码：

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                英语