Dim s As String = e.Sender.TextDim d As Date = new Date (2000 + s.substring(0,2), s.substring(3,2), s.substring(6,2))'msgbox(d)Tables("主窗口_Table22").Filter = "事件日期 = #" & d & "#"
加好友 
发短信
Post By：2015/6/7 9:41:00 [显示全部帖子]
