登记日期是字符列有没有办法直接把登记日期的字符列转换成日期列实现一个选择时段的筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 登记日期是字符列有没有办法直接把登记日期的字符列转换成日期列实现一个选择时段的筛选

共有4108人关注过本帖树形打印复制链接主题：登记日期是字符列有没有办法直接把登记日期的字符列转换成日期列实现一个选择时段的筛选

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

登记日期是字符列有没有办法直接把登记日期的字符列转换成日期列实现一个选择时段的筛选 发帖心情

Post By：2022/2/22 17:08:00 [只看该作者]

表列事项代码

Select Case e.DataCol.Name
Case "登记日期"
e.DataRow("登记日期")=cdate(e.DataRow("登记日期"))
End Select

当登记日期等于 20220211165467 运行时提示：

从字符串“20220211165467”到类型“Date”的转换无效。

登记日期是字符列有没有办法直接把登记日期的字符列转换成日期列实现一个选择时段的筛选

Dim dt1 As Date =Forms("文件登记").Controls("DateTimePicker1").Value
Dim dt2 As Date =Forms("文件登记").Controls("DateTimePicker2").Value
Dim Filter As String
Filter = "登记日期 >= #" & dt1 & "# And 登记日期 <= #" & dt2 & "#"
Tables("文件登记").Filter = Filter

[此贴子已经被作者于2022/2/22 17:08:57编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/2/22 17:17:00 [只看该作者]

没有办法，建议另外建一个日期列，然后做一下转换

Dim s As String= "20220211165457"

s = s.insert(12,":").insert(10,":").insert(8," ").insert(6,"-").insert(4,"-")

Output.Show(s)

Dim d As Date = cdate(s)

Output.Show(d)

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）没有办法，建议另外建一个日期列，然... 发帖心情

Post By：2022/2/22 17:31:00 [只看该作者]

Select Case e.DataCol.Name
    Case "第一列"
        Dim s As String= e.DataRow("第一列")
        s = s.insert(12,":").insert(10,":").insert(8," ").insert(6,"-").insert(4,"-")
        e.DataRow("第二列")=cdate(s)
End Select

第一列是字符第二列是日期时间结果还是出现一楼问题