--
你的这些输入框是在工具栏2中:
Dim StartDate As Datetime
Dim EndDate As Datetime
With RibbonTabs("功能区1").Groups("功能组6").Items("工具栏2")
StartDate = .Items("StartDate").Value
EndDate = .Items("endDate").Value
End With
Tables("rukudan").Filter = "[time] >= #" & StartDate & "# And [time] <= #" & EndDate & "#"
你用这个输入的话,就不会有这样的错误:
http://www.foxtable.com/help/topics/1526.htm