在beforeopenproject事件里写了

updatepath="\\\\USER-20161121ZA\\access\\财务系统"
        Syscmd.Project.Update()

在系统菜单里也添加了一个系统更新的按钮，代码是

Dim Result As DialogResult
Result = MessageBox.Show("是否更新系统?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Result = MessageBox.Show("是否手动选择升级路径?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.yes Then
        forms("路径选择").open
    Else
        updatepath="\\\\USER-20161121ZA\\access\\财务系统"
        Syscmd.Project.Update()
    End If
End If

进入发布后的项目用系统更新的按钮进行更新时显示是最新版本，但打开项目时每次都会提示检测到新版本，是否更新，选择是就会提示通用数据管理平台已停止工作，选否才能进入项目

afterOpenProject写下面代码才有效，beforeOpenProject不能写升级代码。

updatepath="\\\\USER-20161121ZA\\access\\财务系统"
Syscmd.Project.Update()