以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQL语句  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10045)

--  作者:blackzhu
--  发布时间:2011/5/19 10:12:00
--  SQL语句
Dim T As String =e.form.Controls("DateTimePicker2").Value
Dim cmd2 As New SQLCommand
Dim dt2 As DataTable
Dim cmb2 As WinForm.CheckedComboBox
cmd2.C
cmd2.CommandText = "SELECT DISTINCT 收件人 From {快递管理} Where [邮寄日期] =  #" & T & "#"
dt2 = cmd2.ExecuteReader()
cmb2 = e.Form.Controls("CheckedComboBox3")
cmb2.ComboList= dt2.GetComboListString("收件人")


这段代码有什么问题,我根据日期提取收件人,但是提取不到?

--  作者:狐狸爸爸
--  发布时间:2011/5/19 10:16:00
--  

如果是SQL server,日期应该是单引号,而不是#


--  作者:blackzhu
--  发布时间:2011/5/19 10:34:00
--  
是ACCESS的
--  作者:狐狸爸爸
--  发布时间:2011/5/19 10:37:00
--  

output.show(cmd2.CommandText )

看看你合成的Select语句是什么,复制到SQL窗口执行,看看能否得到结果。

 


--  作者:blackzhu
--  发布时间:2011/5/19 11:02:00
--  
SELECT DISTINCT 收件人 From {快递管理} Where [邮寄日期] = #18/5/2011# 
我用这个执行可以返回名字.

e.form.Controls("DateTimePicker2").Value = Today.Date()

Dim T As String =e.form.Controls("DateTimePicker2").Value
Dim cmd2 As New SQLCommand
Dim dt2 As DataTable
Dim cmb2 As WinForm.CheckedComboBox
cmd2.C
cmd2.CommandText = "SELECT DISTINCT 收件人 From {快递管理} Where [邮寄日期] = #  & T & #  "
dt2 = cmd2.ExecuteReader()
cmb2 = e.Form.Controls("CheckedComboBox3")
cmb2.ComboList= dt2.GetComboListString("收件人")

是不是这样的问题,我把时间控件的值赋给了今日时间,今日的是可以找到.但是我把那句代码删除也不行.

--  作者:blackzhu
--  发布时间:2011/5/19 11:13:00
--  
只要是今日的,我可以找到名字,执行Ok.但是只要是输入昨日的时间就不行.
--  作者:狐狸爸爸
--  发布时间:2011/5/19 11:15:00
--  

说明没有昨天的记录


--  作者:blackzhu
--  发布时间:2011/5/19 11:18:00
--  
老大我用18号的都已经返回名字了,怎么会没有昨日的记录呢?
--  作者:狐狸爸爸
--  发布时间:2011/5/19 11:26:00
--  

你选择昨天的日期,用:

 

output.show(cmd2.CommandText )

 

看看你合成的Select语句是什么,复制到SQL窗口执行,即可看出原因的。

 

实在搞不定,就传上来吧。


--  作者:blackzhu
--  发布时间:2011/5/19 11:59:00
--  
打开快递管理表,里面有一个窗口,打开窗口,在底部有一个时间输入框,有一个复选组合框,时间输入框默认为当天时间,在默认的情况,复选组合框可以显示出叫陈溢清的名字出来,但是我选择做的时间也就是2011-5-18.名字也只会显示陈溢清,但后台记录5-18是朱健.本来我以为是这段代码出错:
e.form.Controls("DateTimePicker2").Value = Today.Date()
dim t as string =e.form.Controls("DateTimePicker2").Value,但是我把这段代码

e.form.Controls("DateTimePicker2").Value = Today.Date()
删掉也没有用.

求助!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:服装系统.rar