程序的关键部门如下!
fileName= App.Path & "\111.txt"
Data1.DatabaseName = fileName
sql = "select * from Record"
Data1.RecordSource = sql
Data1.Refresh
FileCopy fileName, App.Path & "\11111.txt" '这句拒绝执行!因为在复制这个文件之前应该关闭fileName这个文件。
请问上面的问题如何解决?
fileName= App.Path & "\111.txt"
Data1.DatabaseName = fileName
sql = "select * from Record"
Data1.RecordSource = sql
Data1.Refresh
FileCopy fileName, App.Path & "\11111.txt" '这句拒绝执行!因为在复制这个文件之前应该关闭fileName这个文件。
请问上面的问题如何解决?
Data1.Refresh