如何将从SQL取出的字符型日期转换成faxtable的日期格式，进行汇总统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将从SQL取出的字符型日期转换成faxtable的日期格式，进行汇总统计

共有3885人关注过本帖树形打印复制链接主题：如何将从SQL取出的字符型日期转换成faxtable的日期格式，进行汇总统计

able88

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：269 威望：0 精华：0 注册：2015/5/5 14:18:00

如何将从SQL取出的字符型日期转换成faxtable的日期格式，进行汇总统计 发帖心情

Post By：2015/5/18 9:19:00 [只看该作者]

我们ERP里SQL数据表的日期是用8位字符存储的。如SQL里的日期格式是这样的：20150518，字段类型是字符，怎样可以显示成faxtable的格式2015-05-18,然后按月去汇总统计数据。

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/18 9:27:00 [只看该作者]

Dim s As String = "20150518"

MessageBox.show(s.Substring(0,4) & "-" & s.Substring(4,2) & "-" & s.Substring(6))

条件设置为 "Substring([日期], 4, 2) = '5'" 统计5月份

最好还是用日期格式列,否则很不方便.

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/18 9:28:00 [只看该作者]

那你的表结构就不对。

多加一列日期列，把原本的字符转化成日期类型。

Datacolchanged事件

If e.DataCol.Name = "日期"
    If e.newvalue IsNot Nothing AndAlso e.NewValue.length >= 8 Then
        e.DataRow("真实日期") = new Date(e.NewValue.SubString(0,4), e.newValue.SubString(4,2), e.newValue.SubString(6,2))
    Else
        e.DataRow("真实日期") = Nothing
    End If
End If