Dim nr As Row = Tables("表A").AddNew() nr("日期") = e.Form.Controls("Calendar1").Value
2、
Dim d As Date = e.Form.Controls("Calendar1").Value Dim d1 As Date = new Date(d.Year, d.Month, 1) Tables("表A").Filter = "日期 >= #" & d1 & "# and 日期 < #" & d1.AddMonths(1) & "#"
加好友 
发短信
Post By：2015/10/9 20:42:00 [显示全部帖子]
