If Filter > "" Then Tables("付款明细").Filter = FilterEnd
改为
DataTables("付款明细").LoadFilter = FilterDataTables("付款明细").Load
试试