datatable.select筛选条件为日期范围的行不会写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → datatable.select筛选条件为日期范围的行不会写

共有4020人关注过本帖树形打印复制链接主题：datatable.select筛选条件为日期范围的行不会写

wohenguaia

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

加好友

发短信

等级：小狐帖子：381 积分：3456 威望：0 精华：0 注册：2011/5/9 12:45:00

datatable.select筛选条件为日期范围的行不会写 发帖心情

Post By：2020/2/9 20:20:00 [只看该作者]

以下内容为程序代码:

1 Dim userMsgdrs As List(of DataRow) = userMsgdt.Select("[CreateTime] ＞ #" & dr("JoinTime") & "# and [CreateTime] ＜ #" & CStr(Date.Now) & "#")

请教老师？

[CreateTime] ，JoinTime均为日期时间列

显示错误为：字符串转为long型错误

[此贴子已经被作者于2020/2/9 20:25:04编辑过]

有点蓝

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

加好友

发短信

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

Post By：2020/2/9 20:24:00 [只看该作者]

Dim userMsgdrs As List(of DataRow) = userMsgdt.Select("[CreateTime] ＞ #" & dr("JoinTime") & "# and [CreateTime] ＜ #" & Date.Now & "#")

wohenguaia

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

加好友

发短信

等级：小狐帖子：381 积分：3456 威望：0 精华：0 注册：2011/5/9 12:45:00

Post By：2020/2/9 20:31:00 [只看该作者]

仍然如下错误，谢谢老师

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

错误所在事件：自定义函数HandleEventFunc

详细错误信息：

调用的目标发生了异常。

从字符串“2020-02-09 19:20:33”到类型“Long”的转换无效。

输入字符串的格式不正确。

有点蓝

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

加好友

发短信

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

Post By：2020/2/9 20:32:00 [只看该作者]

CreateTime肯定不是日期型，而是整数型。表结构，以及函数完整代码发上来看看

wohenguaia

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

加好友

发短信

等级：小狐帖子：381 积分：3456 威望：0 精华：0 注册：2011/5/9 12:45:00

Post By：2020/2/9 20:42:00 [只看该作者]

表结构照搬的这个http://www.foxtable.com/mobilehelp/topics/0176.htm

收到微信推送来的消息直接存到表里，下面是存消息的代码

以下内容为程序代码:

1 Dim UserMessage As String = Args(0) '''保存用户消息的表名
2 Dim xo As Foxtable.XObject = Args(1) '''微信消息对象
3 Dim st As New Date(1970,1,1,8,0,0)
4 If DataTables(UserMessage).Find("MsgID = '" & xo("MsgId").ToString() & "'") Is Nothing Then '没有相同MsgID的信息才保存
5 Dim dr As DataRow = DataTables(UserMessage).AddNew()
6 dr("CreateTime") = st.AddSeconds(xo("CreateTime"))
7 Dim nms() As String = {"FromUserName","MsgType","MsgId","Content","MediaId","ThumbMediaId","PicUrl","Format","Recognition"}
8 For Each nm As String In nms
9 dr(nm) = xo(nm)
10 Next
11 dr.Save()
12 End If

出问题的代码如下：

以下内容为程序代码:

1 Dim userMsgdt As DataTable = DataTables("UserMessage")
2 Dim userMsgdrs As List(of DataRow) = userMsgdt.Select("[CreateTime] ＞ #" & dr("JoinTime") & "# and [CreateTime] ＜ #" & Date.Now & "#")
3 MessageBox.Show(userMsgdrs.count)