‘h’不是可以识别的datepart - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ‘h’不是可以识别的datepart

共有5135人关注过本帖树形打印复制链接主题：‘h’不是可以识别的datepart

powermannico

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

加好友

发短信

等级：童狐帖子：241 积分：2618 威望：0 精华：0 注册：2013/4/2 22:30:00

‘h’不是可以识别的datepart 发帖心情

Post By：2014/2/25 0:58:00 [显示全部帖子]

如下代码,使用内部表时没问题,换外部表（MSSQL）,报错“'h'不是可以识别的datepart”,问题应该出在第4行的时间格式，不知怎么改？此外，第12、13行的两种代码都不能让生成的临时表隐藏,有什么办法？
1   If DataTables("预约单").SourceType = 1 Then
2       theFilter = "[预约时间] >= #" & UserDate & " 00:00# And [预约时间] <= #" & UserDate & " 23:59#"
3   Else
4       theFilter = "[预约时间] >= '" & UserDate & " 00:00' And [预约时间] <= '" & UserDate & " 23:59'"
5   End If
6   Dim GTB2 As New GroupTableBuilder("预约统计按时",DataTables("预约单"))
7   GTB2.FromServer = True
8   GTB2.Filter = theFilter
9   GTB2.Groups.AddDef("预约时间",DateGroupEnum.Hour,"预约日期")
10 GTB2.Totals.AddDef("车牌号",AggregateEnum.Count)
11 GTB2.Build
12 'Tables("预约统计按时").Visible = False
13 'GTB2.TableVisible = False

powermannico

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

加好友

发短信

等级：童狐帖子：241 积分：2618 威望：0 精华：0 注册：2013/4/2 22:30:00

Post By：2014/2/25 8:42:00 [显示全部帖子]

MSSQL

powermannico

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

加好友

发短信

等级：童狐帖子：241 积分：2618 威望：0 精华：0 注册：2013/4/2 22:30:00

Post By：2014/2/25 8:52:00 [显示全部帖子]

自己也尝试过，不行

powermannico

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

加好友

发短信

等级：童狐帖子：241 积分：2618 威望：0 精华：0 注册：2013/4/2 22:30:00

Post By：2014/2/25 9:32:00 [显示全部帖子]

用以下代码替换1楼的6-11行，结果弹窗提示“生成的SQL语句错误，无法继续统计”
Dim SQLGTB2 As New SQLGroupTableBuilder("预约统计按时","预约单")
SQLGTB2.Filter = theFilter
SQLGTB2.Groups.AddDef("预约时间",DateGroupEnum.Hour,"预约日期")
SQLGTB2.Totals.AddDef("车牌号",AggregateEnum.Count)
SQLGTB2.Build