Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]无法在 System.DateTime 和 System.String 上执行“>=”操作。


  共有6680人关注过本帖树形打印复制链接

主题：[求助]无法在 System.DateTime 和 System.String 上执行“>=”操作。
帅哥哟，离线，有人找我吗？
wodewo
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：284 威望：0 精华：0 注册：2013/11/28 4:25:00 		[求助]无法在 System.DateTime 和 System.String 上执行“>=”操作。  发帖心情 Post By：2013/12/9 21:41:00 [显示全部帖子]

请老师指教

无法在 System.DateTime 和 System.String 上执行“>=”操作。

是怎么回事？

Dim k As WinForm.DateTimePicker = e.Form.Controls("开始时间")
Dim s As WinForm.DateTimePicker = e.Form.Controls("结束时间")
Tables("刑侦大队支出表").Filter = "日期 >= #" & k.Value & "# and 日期 <= #" & s.Value & "# and 账目类型 Like '*"


 回到顶部
帅哥哟，离线，有人找我吗？
wodewo
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：284 威望：0 精华：0 注册：2013/11/28 4:25:00 		  发帖心情 Post By：2013/12/9 22:27:00 [显示全部帖子]

不是啊，我的日期是用内置输入器输入的啊，请老师再指教指教，研究一整天了，文化低真可怕啊

 回到顶部
帅哥哟，离线，有人找我吗？
wodewo
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：284 威望：0 精华：0 注册：2013/11/28 4:25:00 		  发帖心情 Post By：2013/12/9 22:34:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：无标题.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wodewo
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：284 威望：0 精华：0 注册：2013/11/28 4:25:00 		  发帖心情 Post By：2013/12/9 23:18:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：无标题.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wodewo
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：284 威望：0 精华：0 注册：2013/11/28 4:25:00 		  发帖心情 Post By：2013/12/9 23:23:00 [显示全部帖子]

是不是日期输入控件的空值判断出了问题呢？

 回到顶部
帅哥哟，离线，有人找我吗？
wodewo
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：284 威望：0 精华：0 注册：2013/11/28 4:25:00 		  发帖心情 Post By：2013/12/9 23:24:00 [显示全部帖子]

Dim lx As WinForm.ComboBox = e.Form.Controls("项目类型")
Dim dw As WinForm.ComboBox = e.Form.Controls("单位名称")
Dim mj As WinForm.ComboBox = e.Form.Controls("民警")
Dim k As WinForm.DateTimePicker = e.Form.Controls("开始时间")
Dim s As WinForm.DateTimePicker = e.Form.Controls("结束时间")
If s.Value <> Nothing Then
Tables("支出表").Filter = "日期 >= #" & k.Value & "# and 日期 <= #" & s.Value & "#"
Dim jg As  Integer = DataTables("支出表").Compute("Sum(金额)","[账目类型] like '*" & lx.Text & "*' and 所属单位 like '*" & dw.Text & "*'and 经手人 like '*" &mj.Text & "*'")
Dim zh As  Integer = Math.Abs(jg)
MessageBox.show("" & dw.Text & " " & mj.Text & " " & lx.Text & "  共计: " & zh & " 元")
Else
Tables("支出表").Filter = "账目类型 like '*" & lx.Text & "*' and 所属单位 like '*" & dw.Text & "*'and 经手人 like '*" &mj.Text & "*'"
Dim jg As  Integer = DataTables("刑侦大队支出表").Compute("Sum(金额)","[账目类型] like '*" & lx.Text & "*' and 所属单位 like '*" & dw.Text & "*'and 经手人 like '*" &mj.Text & "*'")
Dim zh As  Integer = Math.Abs(jg)
MessageBox.show("" & dw.Text & " " & mj.Text & " " & lx.Text & "  共发生: " & zh & " 元")
End If
[此贴子已经被作者于2013-12-9 23:24:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wodewo
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：284 威望：0 精华：0 注册：2013/11/28 4:25:00 		  发帖心情 Post By：2013/12/10 0:18:00 [显示全部帖子]

总显示 该字符串未被识别成有效的DATETIME 怎么回事呢？表日期类型没错啊 我也试验了输入框获得的值也没问题啊？

 回到顶部
帅哥哟，离线，有人找我吗？
wodewo
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：284 威望：0 精华：0 注册：2013/11/28 4:25:00 		  发帖心情 Post By：2013/12/10 1:31:00 [显示全部帖子]

问题解决了，非常感谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询