字符如何格式化成日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符如何格式化成日期

共有2815人关注过本帖树形打印复制链接主题：字符如何格式化成日期

有点蓝

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

加好友

发短信

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

Post By：2023/12/15 11:47:00 [显示全部帖子]

意思是输入2023，就变成日期：2023-1-1？

dim d as date = cdate(e.form.controls("TextBox1").text & "-1-1")

有点蓝

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

加好友

发短信

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

Post By：2023/12/15 13:48:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/1626.htm

Dim b As New SQLGroupTableBuilder("统计表1", "EI")

b.Groups.AddDef("人员类别")

b.Groups.AddDef("人员状态")

b.Totals.AddDef("_Identify", AggregateEnum.Count, "人数")

b.filter = "日期>=#" & d1 & "# and 日期<=#" & d2 & "#"

dt = b.Build(true)

有点蓝

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

加好友

发短信

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

Post By：2023/12/15 15:05:00 [显示全部帖子]

请上传实例说明

有点蓝

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

加好友

发短信

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

Post By：2023/12/15 15:45:00 [显示全部帖子]

怎么测试？哪个数据有问题？

有点蓝

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

加好友

发短信

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

Post By：2023/12/15 16:12:00 [显示全部帖子]

符合这个条件的数据确实有7条呀，什么地方不对？那么正确的应该是哪几行数据？

此主题相关图片如下：1.png

有点蓝

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

加好友

发短信

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

Post By：2023/12/15 16:30:00 [显示全部帖子]

那在节点点击事件里一样给加上同样的条件呀

Dim d1 As Date = CDate(e.Form.controls("TextBox1").text & "-1-1")

Dim d2 As Date = CDate(e.Form.controls("TextBox1").text & "-12-31")

Dim Filter As String = "离开单位日期>=#" & d1 & "# and 进入单位日期<=#" & d2 & "#"

If e.Node.Name <> "加载所有行" Then '要用Name属性,不能用Text属性

Dim lb1 As String = e.Node.DataRow("人员类别")

Dim zt As String = e.Node.DataRow("人员状态")

Select Case e.Node.Level

Case 0

Filter = Filter & " and 人员类别 = '" & lb1 & "'"

Case 1

Filter = Filter & " and 人员类别 ='" & lb1 & "' And 人员状态 = '" & zt & "'"

Case 2

End Select

End If

DataTables("EI").LoadFilter = Filter

DataTables("EI").Load()

有点蓝

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

加好友

发短信

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

Post By：2023/12/15 16:59:00 [显示全部帖子]

这个意思？

Dim Filter As String = "(离开单位日期>=#" & d1 & "# or 离开单位日期 is null) and 进入单位日期<=#" & d2 & "#"

有点蓝

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

加好友

发短信

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

Post By：2023/12/15 17:23:00 [显示全部帖子]

Dim Filter As String = "((进入单位日期>=#" & d2 & "# and 人员状态 in ('在职','在聘')) or (人员状态 not in ('在职','在聘') and 进入单位日期>=#" & d2 & "# and 离开单位日期<=#" & d1 & "#))"

[此贴子已经被作者于2023/12/15 17:23:48编辑过]

有点蓝

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

加好友

发短信

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

Post By：2023/12/16 9:17:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目.zip

下一主题 >> << 上一主题

主题：字符如何格式化成日期