Dim cr As Row = Tables("司机运费月报表_Table1").CurrentDim d As Date = cr("日期")d = new Date(d.year, d.month, 1)Tables("司机运费记录_Table1").Filter = "司机 = '" & cr("司机") & "' and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
http://www.foxtable.com/webhelp/scr/2720.htm