也行窗口名错了,也许Table控件的名称不是“Table1”
另外:
Tables("业务登记_Table1").Filter = "安排日期"= Date.Today
是错的
应该:
Tables("业务登记_Table1").Filter = "安排日期 = #" & Date.Today & “#”
关于表达式的合成,参考:
http://www.foxtable.com/help/topics/1284.htm