主题：SQL语句

你只在AfterLoad设置你相关代码，留意代码加粗的一行：

 

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("收件人")

 

如此设置，始终根据的都是今天的日期来查找的，不管你设置的默认值是什么。

 

如果你把代码改为：

 

e.form.Controls("DateTimePicker2").Value = Today.Date().Adddays(-1)
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("收件人")

 

那么朱建就出来了。

 

所以我说你应该用MessageBox检查一下SQL语句，你会发现当你选择昨天的时候，合成的SQL语句中，使用的还是今天的日期。

我试试.

我就怀疑是这句代码默认的问题.

还是有问题,显示不出来,不知为什么?

呵呵，你只在AfterLoad事件设置代码调用当天的名字，却并没有另外设置代码，用以选择不同的日期后，调用所选日期的名字。

 

设置DateTimePicker2的Leave事件为：

 

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

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目13.rar

可以了,谢谢.为什么要在那儿设置代码?没有想明白.

1、AterLoad只在打开窗口的时候执行，之后你选择不同日期的时候，并不会执行

2、Leave事件在离开此控件的时候执行，这样你选择不同日期后，离开日期选择框，就会执行这段代码，从后台取所选日期的人名。

哦,明白.窗口事件只执行一次.