If not DataTables("文件级目录").HasChanges Then Return
改成下面的意思,则报错
If not CurrentTable.HasChanges Then Return