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

我都试过了，没提示那错误，就是打开项目属性点击确认一次，主窗口就出来了。

不要使用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"

不用ctrl打不开，提示截图上的错误。我一个个表试过了代码了，有问题的都已更正过来了，不知问题出来哪。

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

　　我没一段段代码试，但看显示数据是正常的，没报错，会不会是表、号表、房表都写了不允许车辆基本信息表、缴费情况表已引用数据不允许同步修改，同样缴费情况表引用了车辆基本信息表的数据亦不允许修改，这样引起连动错误？

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

巷表事件有问题，请认真仔细看：http://www.foxtable.com/webhelp/topics/1522.htm

　　我一直都在查，不存在懒得查之说，只是你说用msgbox查，有些代码是不能用这个来查的，因为它没结果，我从窗口显示数据没发现问题，一楼窗口弹出的报错我查出是并解决了，是车辆基本信息表的DataColChanging事件上的代码名称错误，我设置了如果引用数据表上的数据不为空，被引用的数据不允修改。

　　现在出现这所错

此主题相关图片如下：300.png

　　是我想实现窗口中的目录树安条件排序后才出现在错误，我表、窗口、项目上的所有有关排序的代码都查过了，不知问题在哪。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理（不要序号）.foxdb

密码：888888

　　我试过把 _SortKey.改为巷表加序号列，然后安序号排序，在车辆基本信息表加序号列，亦安序号排序，一样提示这样的报错，只是把_SortKey.变成序号，应该是代码的问题，问题是我根本不知是哪出错。

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

dt = cmd.ExecuteReader()

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

主题：打开项目就报错