以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打开项目就报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160000)
--  作者：采菊东篱下
--  发布时间：2021/1/16 21:49:00
--  打开项目就报错
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理（有问题的主窗口）.foxdb

密码：888888

图片点击可在新窗口打开查看此主题相关图片如下：0010.png
图片点击可在新窗口打开查看
　　输入密码打开项目就报错，问题是这错误如何解决，无从入手！还有通过点击项目属性，确认后弹出的主窗口，车辆基本信息表中的车牌号码下拉窗口，缴费表中的车牌号码下拉窗口，表下的横拉带不见了，无法全显内容！foxtable升级后不允许在分区版面中加分页控件，然后在分页页面里加表格？如果是这样，设置这些控件没意义，因为它根本不能让用户根据需要设置界面！
　　看来主窗口只能推倒重做，不能用分区版面了！
[此贴子已经被作者于2021/1/17 10:18:36编辑过]
--  作者：有点蓝
--  发布时间：2021/1/17 20:03:00
--  
这种提示就是出现了死循环。比如事件A代码触发事件B，事件B代码触发事件C，事件C代码又触发事件A........

使用ctrl键打开项目，注释掉最新修改的代码，或者相关所有代码，然后逐一取消注释看是哪个事件会有冲突。
--  作者：采菊东篱下
--  发布时间：2021/1/17 21:27:00
--  
　　集合页面里的table控件叠加了，我已把窗口中的所有控件检查一次，没叠加的了，现在打时依然出现上面窗口的报错提示，另打开项目后主窗口没自动打开，要点一次项目属性，确认后才打开主窗口，表下的横拉导条已可显示了，车牌号码下拉窗口亦可显示了。
--  作者：有点蓝
--  发布时间：2021/1/17 21:47:00
--  
所有事件都有使用的场合，不是把代码随便放到一个事件就能使用。
--  作者：采菊东篱下
--  发布时间：2021/1/18 14:56:00
--  
密码：888888
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理（有问题的主窗口）.foxdb
不明白你连接的网页事件怎么用，问题始终没解决。
--  作者：有点蓝
--  发布时间：2021/1/18 15:25:00
--  
去掉BeforeLoadOuterTable代码，放到afteropenproject事件
--  作者：采菊东篱下
--  发布时间：2021/1/18 15:30:00
--  
BeforeLoadOuterTable中没代码！问题没解决。
--  作者：有点蓝
--  发布时间：2021/1/18 15:56:00
--  
把项目事件全部注释掉，然后一个个取消注释，看是哪一个事件有问题。再在事件里调试，看是哪一句代码有问题
--  作者：采菊东篱下
--  发布时间：2021/1/18 16:04:00
--  
试过了，项目中就这两个事件有代码,其中AfterOpenProject中没多少代码：
\'主界面设置
basemainform.icon = Nothing
\'设置界面风格
VisualStyle = VisualStyleEnum.Office2007Blue

\'对非开发者隐藏表标题;
Forms("主界面").open()
MainTable = Tables("车辆基本信息")
If User.Type <> UserTypeEnum.Developer Then
    TableCaptionVisible = False
Else
    TableCaptionVisible = True
End If

\'设置表的下拉窗口打开
Tables("缴费情况").Cols("车牌号码").DropForm = "车牌目录树" \'客户表的县市列也采用我们设计的下拉窗口输入数据
Tables("车辆基本信息").Cols("车牌号码").DropForm = "车牌目录树" \'客户表的县市列也采用我们设计的下拉窗口输入数据
Tables("车辆基本信息").Cols("住址_巷").DropForm = "增加巷"
Tables("车辆基本信息").Cols("住址_号").DropForm = "增加号"
Tables("车辆基本信息").Cols("住址_房").DropForm = "增加房"

\'巷表的行排序
Dim dr As DataRow
dr = DataTables("巷").Find("","[_SortKey]")
If dr IsNot Nothing Then
    \'模拟第一行的支出发生变化, 刷新已加载行的余额.
    DataTables("巷").DataCols("序号").RaiseDataColChanged(dr)
End If
\'缴费情况表的行排序
Tables("缴费情况").Sort = "日期"
\'车辆基本信息表的行排序
Tables("车辆基本信息").Sort = "住址_巷,住址_号,住址_房 DESC"

MainTableChanged中就一段代码：
Forms("主界面").Open()
Tables("车辆基本信息").Sort = "住址_巷,住址_号,住址_房 DESC"

[此贴子已经被作者于2021/1/18 16:08:32编辑过]
--  作者：有点蓝
--  发布时间：2021/1/18 16:05:00
--  
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看是哪一句代码执行后有问题