dim d as date = e.Form.Controls("DateTimePicker1").Value
DataTables("日报表").loadFilter = "日期时间>= '" & d & "' and 日期时间 <'" & d.adddays(1) & "'"DataTables("日报表").load
加好友 
发短信
Post By：2015/6/10 14:03:00 [显示全部帖子]
