Foxtable(狐表)用户栏目专家坐堂 → 请教Syscmd.Project.Open用法


  共有3012人关注过本帖树形打印复制链接

主题:请教Syscmd.Project.Open用法

帅哥哟,离线,有人找我吗?
y2287958
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望:0 精华:0 注册:2008/8/31 22:44:00
请教Syscmd.Project.Open用法  发帖心情 Post By:2020/11/1 18:09:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目测试.rar

一、以下代码在命令窗口中直接执行没有问题,但在窗口中的按钮执行时出现以下提示:

“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”(非原项目文件夹中)。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/1 20:49:00 [只看该作者]

……
FileSys.CopyDirectory (原目录, 备份目录, True)
e.cancel = true
Syscmd.Project.Open(备份文件)

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/11/2 8:27:00 [只看该作者]

谢谢蓝版

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4773 积分:34673 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/11/2 9:43:00 [只看该作者]

蓝版,用Syscmd.Project.Open打开另一个文件时会出现“正在打开文件,请稍后”的提示,请问可以去掉这个提示吗?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/2 9:59:00 [只看该作者]

不能

 回到顶部