If Filter > "" Then Tables("日报表_Table1").datatable.loadFilter = Filter
Tables("日报表_Table1").datatable.loadEnd If