主题：代码问题

 

佶龙机加二车间数据管理系统配置栏标准按钮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
但是用发布的项目，会执行红色代码，我在本机不会执行，纠结，请求帮助，谢谢

佶龙机加二车间数据管理系统就是什么文件，加上后辍看看。

  谢谢C版，代码一样，我用按钮，现在好像可以了，晚上在多测试一下。

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()