个人感觉这样比较好
Dim a1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim a2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim a3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim d1 As Date = New Date(a1.Text, a2.Text, a3.Text, 8, 39, 0)
Dim d2 As Date = New Date(Date.Today.Year, Date.Today.Month, Date.Today.Day, 8, 40, 13)
Tables("统计查询_table1").filter="[增加完成数量的时间]>=#" & d & "# And [增加完成数量的时间]<=#" & d2 & "#"
Forms("统计查询输入查询日期").close
加好友 
发短信
Post By：2013/1/14 10:17:00 [显示全部帖子]
