以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  报错问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41910)

--  作者:owenlyx
--  发布时间:2013/10/30 10:04:00
--  报错问题

本人用的是内部数据源,代码如下

 

Tables("销售查询_Table1").fill("select[_identify],销售日期,销售人员,销售类型,条码号,款号,件数,品牌,产品类型,尺码,颜色,挂牌价,实销价,折扣,状态 from {销售表} where 销售日期 > # " & StartDate & " # and 销售日期 <  # " & EndDate & " # ","true")
 
但是总是出现 从字符串"\'到类型date转换失败,请大神们帮忙看一看
谢谢
 
 
 

 

 


--  作者:Bin
--  发布时间:2013/10/30 10:08:00
--  
检查一下你的 StartDate 和 EndDate  这个两个变量的值

弹出一下看看.

--  作者:owenlyx
--  发布时间:2013/10/30 10:46:00
--  
总代码如下,
If e.Form.Controls("开始日期").Value = ""
    MessageBox.show("请选择开始时间")
    Return
End If
If e.Form.Controls("结束日期").Value = ""
    MessageBox.show("请选择结束时间")
    Return
End If

 

Dim StartDate As Date = e.Form.Controls("开始日期").Value
Dim EndDate As Date = e.Form.Controls("结束日期").Value
StartDate = StartDate.AddDays(-1)
EndDate = EndDate.AddDays(+1)

Tables("销售查询_Table1").fill("select[_identify],销售日期,销售人员,销售类型,条码号,款号,件数,品牌,产品类型,尺码,颜色,挂牌价,实销价,折扣,状态 from {销售表} where 销售日期 > # " & StartDate & " # and 销售日期 <  # " & EndDate & " # ","true")


--  作者:Bin
--  发布时间:2013/10/30 10:49:00
--  
1.让你弹出一下StartDate 和 EndDate  这个两个变量的值 为什么不去试试?
2. 根据你前面的代码,如果这两个变量有误的话应该会提前报错,再看了一下你拼接的表达式,应该是有空格问题 

# " & StartDate & " # and 销售日期

红色区域的空格去掉
where 销售日期 > #" & StartDate & "# and 销售日期 <  #" & EndDate & "# ","true")

--  作者:owenlyx
--  发布时间:2013/10/30 11:10:00
--  
让你弹出一下StartDate 和 EndDate  这个两个变量的值 为什么不去试试?  
什么意思bin,不好意思,我是小白,才学两个多月,你们说的有些话我暂时理解不了,能告诉我如何弹出马?

--  作者:Bin
--  发布时间:2013/10/30 11:13:00
--  
1.帮助中有介绍调试的方法,就是利用messagebox.show(StartDate ) 把值弹出来看看是否是正常的值http://www.foxtable.com/help/topics/1485.htm
2.我在这里已经说了,值应该是没问题的,否则前面你增加减少天数的时候就应该报错了,所以你不需要纠结第一点了,我只是提醒你一下而已.

问题原因应该是我4楼所说得空格问题.

--  作者:owenlyx
--  发布时间:2013/10/30 11:16:00
--  
bin,我刚才把空格按照您说的方法改了还在报错
--  作者:Bin
--  发布时间:2013/10/30 11:16:00
--  
那你就上例子吧.