写到AfterLoad事件
e.Form.Controls("Table1").Table.Fill("select * fr om {报港登记表2} where [报港时间] > #" & date.Today().AddDays(-35) & "#", false)