- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- datatable.select筛选条件为日期范围的行不会写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145865)
-- 发布时间：2020/2/9 20:20:00
-- datatable.select筛选条件为日期范围的行不会写
以下内容为程序代码:
1 Dim userMsgdrs As List(of DataRow) = userMsgdt.Select("[CreateTime] ＞ #" & dr("JoinTime") & "# and [CreateTime] ＜ #" & CStr(Date.Now) & "#")
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编辑过]
-- 发布时间：2020/2/9 20:24:00
--
Dim userMsgdrs As List(of DataRow) = userMsgdt.Select("[CreateTime] ＞ #" & dr("JoinTime") & "# and [CreateTime] ＜ #" & Date.Now & "#")
-- 发布时间：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”的转换无效。
输入字符串的格式不正确。
-- 发布时间：2020/2/9 20:32:00
--
CreateTime肯定不是日期型，而是整数型。表结构，以及函数完整代码发上来看看
-- 发布时间：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 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)
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)
-- 发布时间：2020/2/9 20:50:00
--
表结构截图看看
-- 发布时间：2020/2/9 21:01:00
--
此主题相关图片如下：qq图片20200209210027.png
-- 发布时间：2020/2/9 21:04:00
--
此主题相关图片如下：111111111qq图片20200209210233.png
-- 发布时间：2020/2/9 21:09:00
--
老师，是不是我该升级下版本了？
-- 发布时间：2020/2/9 21:09:00
--
什么数据库？access？JoinTime类型呢，这样测试有没有问题？
Dim userMsgdrs As List(of DataRow) = userMsgdt.Select("[CreateTime] ＜ #" & Date.Now & "#")
自定义函数HandleEventFunc代码是5楼第一段？