主题：[求助]升级后有出错提示（开发版）

写了后面要跟上Return

升级代码要严格按照帮助的来.

请版主测试项目文件，以下是项目的全部代码，或指出哪一句写错了

项目事件

BeforeConnectOuterDataSource

If e.name = "订单" Then

    e.C & e.ProjectPath & "订单.mdb;Persist Security Info=False"

End If

BeforeLoadInnerTable

e.Cancel = True '不加载任何内部数据表

BeforeLoadOuterTable

e.Cancel = True '不加载任何外部数据表

AfterOpenProject

If   DataTables.Contains("main") = False Then '是否需要加载内部表,选其中一个作检测

    DataTables.Load("main")

End If

If   DataTables.Contains("订单") = False Then '是否需要加载外部表,选其中一个作检测

    DataTables.Load("订单")

End If

LoadUserSetting

If Syscmd.Project.Update(False,False) = False Then  '先检查是否要升级

    If   DataTables.Contains("main") = False Then '是否需要加载内部表,选其中一个作检测

        DataTables.Load("main")

    End If

    If   DataTables.Contains("订单") = False Then '是否需要加载外部表,选其中一个作检测

        DataTables.Load("订单")

    End If

DataTables("订单").LoadFilter ="[单价] > 10"

DataTables("订单").Load

    MessageBox.Show("订单表单价大于10元的记录数:" & Tables("订单").Rows.Count)

Else　　　　　　　　　　　　　　‘这二行删除也一样报错

    System.Diagnostics.Process.GetProcessesByName("foxtable")(0).Kill　‘这一行是甜版主写的一代码

End If '检查升级结束

SystemIdle

With CurrentTable

    Dim Str1 As String = "用户名:  " & User.Name

    Str1 = Str1 & "   表名:   " & .Name & "   总行数:   "

    Str1 = Str1 & .Rows.Count & "  当前行:  " & (.Position + 1)

    StatusBar.Message1 = Str1

End With

计划管理

表事件

窗口表事件

窗口与控件事件

自定义函数

全局代码

Default

菜单事件

系统管理_项目管理_程序升级_Click

Syscmd.Project.Update()   '检查升级

系统管理_项目管理_切换用户_Click

Syscmd.Project.SwitchUser()

系统管理_项目管理_退出_Click

Syscmd.Project.Exit(False)

系统管理_项目管理_系统菜单_Click

If User.Type = UserTypeEnum.Developer

    Syscmd.Project.OpenSystemMenu()

Else

    MessageBox.Show("只有开发者才能使用!","提醒")

End If

系统管理_项目管理_用户管理_Click

Syscmd.Project.Users()

 

ALterOpenProject的代码注译看看,没有升级包我测试不了你的项目