标题：代码问题
佶龙机加二车间数据管理系统配置栏标准按钮Click事件
For Each dt As DataTable In DataTables
dt.Save()'保存所有数据
Next
Dim s As String = CRCCheckFile("\\192.168.3.100\wqc共享文件夹\Publish\Project\佶龙机加二车间管理系统.FoxEx")
Dim s1 As String = CRCCheckFile("E:\车间数据库\Publish\Project\佶龙机加二车间管理系统.FoxEx")
If s=s1 Then
For each frm As WinForm.Form In Forms
frm.Close '关闭所有窗口
Next
MainTable = Tables("登陆")
Forms("界面").Show()
Else
Dim Proc As New Process '定义一个新的Process
Proc.File = "E:\更新程序\Publish\更新程序" '指定要打开的文件
Proc.Start()'打开文件
Syscmd.Project.Exit()
End If
更新程序项目属性AfterOpenProject事件代码：
FileSys.CopyDirectory ("\\192.168.3.100\wqc共享文件夹\Publish", "E:\车间数据库\Publish", True)
Dim Proc As New Process '定义一个新的Process
Proc.File = "E:\车间数据库\Publish\佶龙机加二车间数据管理系统" '指定要打开的文件
Proc.Start()'打开文件
Syscmd.Project.Exit()
点佶龙机加二车间数据管理系统配置栏标准按钮时，在192.168.3.100（本机）使用正常，在客户机使用不管是否重新发布项目（要求192.168.3.100没有重新发布项目时，应不执行一些代码的），都会执行打开共享程序项目，并关闭本项目，也会执行复制，但是还会出现提示窗口：
此主题相关图片如下：未命名.gif
我在客户机执行代码：
Dim s As String = CRCCheckFile("\\192.168.3.100\wqc共享文件夹\Publish\Project\佶龙机加二车间管理系统.FoxEx")
Dim s1 As String = CRCCheckFile("E:\车间数据库\Publish\Project\佶龙机加二车间管理系统.FoxEx")
Output.Show(s)
Output.Show(s1)
显示都是一样的，不一该执行1楼以下红色代码的：
For Each dt As DataTable In DataTables
dt.Save()'保存所有数据
Next
Dim s As String = CRCCheckFile("\\192.168.3.100\wqc共享文件夹\Publish\Project\佶龙机加二车间管理系统.FoxEx")
Dim s1 As String = CRCCheckFile("E:\车间数据库\Publish\Project\佶龙机加二车间管理系统.FoxEx")
If s=s1 Then
For each frm As WinForm.Form In Forms
frm.Close '关闭所有窗口
Next
MainTable = Tables("登陆")
Forms("界面").Show()
Else
Dim Proc As New Process '定义一个新的Process
Proc.File = "E:\更新程序\Publish\更新程序" '指定要打开的文件
Proc.Start()'打开文件
Syscmd.Project.Exit()
End If
但是用发布的项目，会执行红色代码，我在本机不会执行，纠结，请求帮助，谢谢
FileSys.CopyDirectory ("\\192.168.3.100\wqc共享文件夹\Publish", "E:\车间数据库\Publish", True)
加一段复制完毕才执行以下代码
Dim Proc As New Process '定义一个新的Process
Proc.File = "E:\车间数据库\Publish\佶龙机加二车间数据管理系统" '指定要打开的文件
Proc.Start()'打开文件
Syscmd.Project.Exit()