打开项目就报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这种提示就是出现了死循环。比如事件A代码触发事件B，事件B代码触发事件C，事件C代码又触发事件A........

使用ctrl键打开项目，注释掉最新修改的代码，或者相关所有代码，然后逐一取消注释看是哪个事件会有冲突。

所有事件都有使用的场合，不是把代码随便放到一个事件就能使用。

去掉BeforeLoadOuterTable代码，放到afteropenproject事件

把项目事件全部注释掉，然后一个个取消注释，看是哪一个事件有问题。再在事件里调试，看是哪一句代码有问题

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看是哪一句代码执行后有问题

不要使用ctrl键打开项目测试

'主界面设置

basemainform.icon = Nothing

'设置界面风格

VisualStyle = VisualStyleEnum.Office2007Blue

msgbox(1)

'对非开发者隐藏表标题;

Forms("主界面").open()

MainTable = Tables("车辆基本信息")

If User.Type <> UserTypeEnum.Developer Then

TableCaptionVisible = False

Else

TableCaptionVisible = True

End If

msgbox(2)

'设置表的下拉窗口打开

Tables("缴费情况").Cols("车牌号码").DropForm = "车牌目录树" '客户表的县市列也采用我们设计的下拉窗口输入数据

Tables("车辆基本信息").Cols("车牌号码").DropForm = "车牌目录树" '客户表的县市列也采用我们设计的下拉窗口输入数据

Tables("车辆基本信息").Cols("住址_巷").DropForm = "增加巷"

Tables("车辆基本信息").Cols("住址_号").DropForm = "增加号"

Tables("车辆基本信息").Cols("住址_房").DropForm = "增加房"

msgbox(3)

'巷表的行排序

Dim dr As DataRow

dr = DataTables("巷").Find("","[_SortKey]")

If dr IsNot Nothing Then

'模拟第一行的支出发生变化, 刷新已加载行的余额.

DataTables("巷").DataCols("序号").RaiseDataColChanged(dr)

End If

msgbox(4)

'缴费情况表的行排序

Tables("缴费情况").Sort = "日期"

'车辆基本信息表的行排序

Tables("车辆基本信息").Sort = "住址_巷,住址_号,住址_房 DESC"

弹出哪个msgbox后出错？执行了那些代码后出错？

先学会调试，一段段代码试。自己写的代码懒得调试，不愿意调试，那么还写那么多干啥，写的越多错的越多。

cmd.CommandText = "SELECT [_SortKey], 住址_巷,住址_号,住址_房,户主姓名,手机号码,车牌号码 From {车辆基本信息}"

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")

主题：打开项目就报错