一、以下代码在命令窗口中直接执行没有问题,但在窗口中的按钮执行时出现以下提示:
“This row has been removed from a table and does not have any data. BeginEdit() will allow
creation of new data in this row.”,如何取消这个提示?
'''
Dim 原目录 As String = FileSys.GetParentPath(FileSys.GetParentPath(ProjectFile))
Dim 备份目录 As String = 原目录 & "备份"
Dim 备份文件 As String = 备份目录 & "\" & ProjectFile.Replace(原目录,"").split("\")(1) & "\项目2.table"
FileSys.CopyDirectory (原目录, 备份目录, True)
Syscmd.Project.Open(备份文件)
二、测试顺序:
1、文件打开:解压文件后,打开“项目测试-项目”文件夹中的“项目1.table”
2、代码执行:分别在命令窗口中和窗口的按钮中执行以上代码
三、代码目的:先复制整个“项目测试”文件夹为“项目测试备份”到同一目录,然后打开复制文件夹中的“项目2.table”(非原项目文件夹中)。