请版主测试项目文件，以下是项目的全部代码，或指出哪一句写错了
项目事件
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()
[此贴子已经被作者于2015-1-10 14:23:32编辑过]
加好友 
发短信
Post By：2015/1/10 13:22:00 [显示全部帖子]
