Foxtable(狐表)用户栏目专家坐堂 → 日期输入框 问题 提示从字符串转换到Datetime时出错


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

主题:日期输入框 问题 提示从字符串转换到Datetime时出错

帅哥哟,离线,有人找我吗?
ruan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:468 积分:4939 威望:0 精华:0 注册:2011/8/20 18:40:00
日期输入框 问题 提示从字符串转换到Datetime时出错  发帖心情 Post By:2012/2/16 12:27:00 [只看该作者]

以下下代码 报错


图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看

如果   计划日期 = ' & rq & '   处直接输入值不会报错 是什么问题

 

Dim tbl As WinForm.Table
Dim rq As Date= e.Form.Controls("DateTimePicker1").Value
If e.Form.ExistControl("Table1") Then
    e.Form.RemoveControl("Table1")
    tbl = e.Form.CreateSQLQuery("Table1", "Select  [弹簧用量_物料编号] as 物料编号,[弹簧用量_物料名称] as 物料名称,[产品_型号] as 型号,[计量单位],[弹簧用量_单位用量] as 单位用量,数量,[弹簧用量_单位用量] * 数量 as 需求量,计划日期 From {用料清单}  INNER JOIN {计划表} ON {用料清单}.[产品编号] = {计划表}.产品编号 WHERE 计划日期 = ' & rq & ' ORDER BY 计划日期","ERP")
    tbl.SetBounds(20, 50, 700, 600)
    e.Form.AddControl(tbl)
Else
    tbl = e.Form.CreateSQLQuery("Table1", "Select  [弹簧用量_物料编号] as 物料编号,[弹簧用量_物料名称] as 物料名称,[产品_型号] as 型号,[计量单位],[弹簧用量_单位用量] as 单位用量,数量,[弹簧用量_单位用量] * 数量 as 需求量,计划日期 From {用料清单}  INNER JOIN {计划表} ON {用料清单}.[产品编号] = {计划表}.产品编号 WHERE 计划日期 = ' & rq & ' ORDER BY 计划日期","ERP")
    tbl.SetBounds(20, 50, 700, 600)
    e.Form.AddControl(tbl)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/2/16 13:44:00 [只看该作者]

计划日期 = ' & rq & '   >>>  计划日期 = #" & rq & "#   这样试试

 回到顶部
帅哥哟,离线,有人找我吗?
ruan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:468 积分:4939 威望:0 精华:0 注册:2011/8/20 18:40:00
  发帖心情 Post By:2012/2/16 14:50:00 [只看该作者]

解决了 计划日期 = '" & rq & "' 

[此贴子已经被作者于2012-2-16 14:52:12编辑过]

 回到顶部