主题：代码问题

 

佶龙机加二车间数据管理系统配置栏标准按钮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