以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码出现错误，求达人解惑  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27143)
--  作者：guoqi1129
--  发布时间：2012/12/23 13:48:00
--  [求助]代码出现错误，求达人解惑

Dim dr1 As DataRow
Dim dr2 As DataRow

Dim d As WinForm.DateTimePicker = e.Form.Controls("日期")
dr1 = DataTables("清单").Find("日期" = d.value)
dr2 = DataTables("清单").Find("日期" = d.value.AddDays(-1) )

运行显示从字符串“日期” 到类型“DATE”的转换无效。但是清单中“日期”列是时间日期型。控件也是日期输入框，如何破？？
--  作者：yinyb36
--  发布时间：2012/12/23 14:14:00
--  

Dim dr1 As DataRow
Dim dr2 As DataRow

Dim d As WinForm.DateTimePicker = e.Form.Controls("日期")

Dim rq As Date = d.Value

dr1 = DataTables("清单").Find("日期 = #" & rq & "#")
dr2 = DataTables("清单").Find("日期 = #" & rq.AddDays(-1) & "#")

 

[此贴子已经被作者于2012-12-23 14:15:20编辑过]
--  作者：guoqi1129
--  发布时间：2012/12/23 14:19:00
--  
谢谢大神。
--  作者：guoqi1129
--  发布时间：2012/12/25 14:44:00
--  
谢谢~~